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GAMES 

FOR THE 

ATARI 
400/800 



OR 
HOW TO PROGRAM YOUR OWN GAMES 



PREFACE 

Among the many microcomputers on the market today some 
are designed more for scientific or control purposes while others 
are more suitable for great graphics and games. The ATARI micro- 
computers 400 and 800 belong to the second group. 

The ATARI computers provide many possibilities to create on-the- 
screen-graphics and also to produce almost any sound effect. 

The two features — graphics and sound — are exactly what's 
needed to program computer games. 

This booklet provides ideas on how to create your own computer 
games. 

This booklet deals primarily with BASIC examples. However, for 
very advanced programs, BASIC may be too slow; consequently, 
such programs should be written in machine language. But since 
not everybody knows how to program a 6502 microprocessor, we 
have included only one example in machine language at the end 
of the book. 



Important Notice 

A HINT: 

Users of ATARI -computers with only 16K of RAM may have 
problems with programs that use a character list in the RAM area. 
For example the following program: 

100 FOR l=0TO 1023 

1 10 POKE 16384+1, PEEK(57344+I) 

120 NEXT I 

130 POKE 756,64 

This program transfers the character list (1 K long) to S4000, but 
a computer with only 16K doesn' t have any memory at that 
location. So we have to transfer to 52000=8192. 
In location 756 there has to be the page boundary where the 
character list is to be found. If this is $2000, there has to be the 
number 32 in that location. The display-list also is at a different 
location then. It starts at 15392 instead of 39968. 
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Useful commands 

for programming 

games 

Graphics commands 



GRAPHICS n 
SETCOLOR l,m,n 
COLOR n 
PLOT x,y 
DRAWTO x,y 

Sound commands 

SOUND v,u,t,l (4 independent channels) 

AddJtiojaUommjmds 

Changing the hardware registers by PEEK and POKE 

Important Notice 

The programs in this book were developed and tested on the ATARI 800/48K RAM. 

If you want to run the programs on other machines, please check, if there is enough 

memory. 

Some programs for example transfer the character set to hex 4000. The ATARI 400/ 

16K has no RAM in this area. So you have to make the corresponding adjustments. 

If you put the character set into S 2000 = 8192 dec. you can also use a 16K machine. 

Don' t forget to set the boundary of the character set at location 756 dec. If you use 

S 2000, location 756 must be 32 dec. 

Please check each program and change the appropriate locations. 

Colors may be different on different ATARI computers (PAL-version in Europe, NTSC 
in the US etc.). Maybe changes also have to be made , if you use the new ATARI GTIA 
chip. 



Drawing figures on 
the screen 



I. Drawing a House 

Our first elementary example demonstrates how to draw a house 
on the scrren by using the PLOT and DRAWTO commands. These 
two commands define screen locations by numbers appended to 
the commands. For example: PLOT 20,30 

Screen locations: 

x 

0,0 ► 




PLOT x,y 



Y 



The maximum numbers for x and y depend on the graphics mode 
that is selected. 

Now let' s draw that house. 

Most people know how to draw a house with one line: 




The following program shows how to do that by using the PLOT 
and DRAWTO commands. 

10 GRAPHICS 7 

20 COLOR 1 

30 PLOT 50, BO 

40 DRAWTO 50,20 

45 FOR X=l TO 200 1 NEXT X 

50 DRAWTO 100,20 

55 FOR X=l TO 200 1 NEXT X 

BO DRAWTO 100, BO 

B5 FOR X=l TO 200 : NEXT X 

70 DRAWTO 50, BO 

75 FOR X=l TO 200 1 NEXT X 

BO DRAWTO 100,20 

B5 FOR X=l TO 200 : NEXT X 

90 DRAWTO 75,0 

85 FOR X=l TO 200 : NEXT X 

100 DRAWTO 50,20 

105 FOR X=l TO 200 1 NEXT X 

110 DRAWTO 100,60 

2. Drawing a Stick Figure 

To draw a stick figure or anything else that can be moved around 
the screen, the PLOT and DRAWTO commands are not very 
suitable. The ATARI computers have a very powerful feature to 
do just that. It's called "player-missile" graphics. 

This feature offers the following possibilities: 

a) we can define four different images (called players) with four 
different colors 

b) with different sizes 

c) we can have single or double line resolution 

d) each player can have a missile 

e) the horizontal position of each player and missile may easily 
be changed by changing only its position register 

Since this technique offers many possibilities, the process of 
turning on the player-missile graphics is more difficult than 
drawing something on the screen by the use of PLOT and DRAW- 
TO: 



a) first we have to find a location in memory to store our image; 
this is done by the following command: 

I = PEEK (106)-8: POKE 54279,1 
Location 54279 now contains the number of 1/4K blocks 
from address to the beginning of our player-missile area. 
Now we can calculate our player-missile base address by the 
following command: 

PMBAS = I * 256 

b) after we have found our player-missile area, we prepare this 
memory area. What we see on the screen starts 1/2k after 
PMBAS and is 1 28 bytes long. First we want to clear this area, 
so that there is nothing in it we don' t want. This is done by 
the following line: 

FORX=PMBAS+512 TO PMBAS+640: POKE X,0: NEXT X 

Now our PM-area is filled with zeros; that means all dots are 
turned off. To create a figure we will now turn on some of the 
dots. Let's create a little man that looks like: 



128 64 32 16 8 4 2 1^ hex 

OC 
OC 
08 
3F 
48 
88 
14 
22 
41 




dez. 
12 
12 
8 

63 
72 
136 
20 
34 
65 



or if you don't fancy that, try this fellow: 

hex 

OC 

OC 



1C 
2A 
49 
14 
14 
14 




dez. 

12 

12 

8 

28 

42 

73 

20 

20 

20 



f) now we want to position our figure on the screen. The vertical 
position (y-position) is defined by the position in memory; the 
horizontal position (x-position) is defined by the contents of 
the position register for that player which is at location 53248 
for player 1 . 

Let's try: 

X = 100 : Y = 70 

d) The next step is to define color and luminance of our player. 
The location for that is 704 (player 1 ). 

Let' s try: 
POKE 704,90 

e) now we define the resolution of our player and enable the PM- 
graphics; this is done by: 

POKE 559,46 (double line resolution) 

POKE 53277,3 

But now it is time to see some action on the screen. Let's type 
in the following program and see what happens on the screen: 

100 I = PEEK (100) -8 

110 POKE 54279, I 

120 PMBAS= 1*258 

130 FOR G=PMBAS+512 TO PMBAS+S40 

140 POKE 0,0 

150 NEXT Q 

160 x=ioo:y=7o 

170 poke 704, 90! poke 553,40! poke 53277,3 

180 POKE 53248 rX 

190 FOR Q=0 TO 8 

200 READ P 

210 POKE Pf!BAS+512 + Y+G,P 

220 NEXT Q 

230 DATA 12, 12,8,03,72, 138,20,34,05 

When you RUN the program you should see a little man on the 

screen. 

Let's see how we can control him. 

First we will change his horizontal position by changing the value 

in his position register. 



POKE 53248,150 

should move him to the right. 

Now we change his size, which is done by: 

POKE 53256,1 

or 

POKE 53256,3 

Then we can change his color by: 

POKE 704,60 

or 

POKE 704,24 (for example) 

We can also control the "priority" of our player. That means if he 
overlays with a part of the playfield, we can define whether our 
player should be displayed in the foreground or in the background 
of the playfield. 

Let's use the house we made earlier and move our player around 
that house with different priorities. Type in the following listing 
and see what happens. (The house is changed a little bit, to show 
the effect of priority better (see lines 300—330). 

90 GRAPHICS 7:C0L0R I 



100 


I=PEEK< 108) -8 


110 


POKE 54279,1 


120 


PMBAS=I*25E 


130 


FOR G=PMBAS+512 TO PMBAS+G40 


140 


POKE BrO 


150 


NEXT Q 


ISO 


x=igo:y=7o 


170 


POKE 704, 154: POKE 559 ,4E: POKE 5 


180 


POKE 53248, X 


190 


FOR 5=0 TO 8 


200 


READ P 


210 


POKE PMBAS+512+Y+Q,P 


220 


NEXT Q 


230 


DATA 12, 12, e, 63, 72, 136, 20,34, 65 


240 


POKE 53256,1 


250 


PLOT 50,60 


2G0 


DRAWTO 50, 20 I DRAWTO 100,20 


270 


DRAWTO 100, 60 : DRAWTO 50,60 


280 


DRAWTO 100, 20 I DRAWTO 75,0 


290 


DRAWTO 50, 20 : DRAWTO 100,60 



53277,3 



300 FOR Q=l TO 49 

310 PLOT 50+0,20 

3 20 DRAWTO 50+0,60 

330 NEXT 

340 POKE 023,8 

350 X = X+ 1 : I F X > 1 GO THEN 370 

3G0 POKE 53248, X: GOTO 350 

370 POKE G23,0 

380 X=X-1!IF X<70 THEN 340 

390 POKE 53248, X: GOTO 380 

You should see our man moving around the house. Moving from 
right to left the player has priority over the house (playfield). 
Moving from left to right the playfield has a higher-priority and 
the player seems to be behind the house. The change of priority 
ranking is done in lines 340 and 370. (Memory location 623 = 
priority control register). 



Movements in BASIC 



Movements on the screen 

In the above examples we could see how easy it is to program hori- 
zontal movements of our player by only changing the contents of 
the position register. 
But how about vertical movements? 



As mentioned earlier the vertical position of our player is defined 
by the memory location of the bit pattern of our player. That 
means that we have to "shovel" our bit pattern to another 
memory location if we want to move our player in a vertical 
direction. (Movement up means lower, movement down means 
higher memory location). 
For example, a movement two lines down looks like this: 

last step 



first step 

The following program shows this process of "shoveling". The 
for-next-loop in lines 245 to 247 takes the bottom line of our 
player and writes it into the line below. Then the line above is 
carried one line down and so on. The last step is to take the line 
above our earlier player (which contains only zeros) and write it 
on the top line of our earlier player. The movement is now 
finished. 



90 GRAPHICS 71 COLOR 1 

100 I = PEEK ( 10B)-B 

110 POKE 54279,1 

120 PMBAS=I*256 

130 FOR G=PMBAS+512 TO PMBAS+B40 

140 POKE Q,0 

150 NEXT Q 

ibo x=ibo:y=70 

170 poke 704, 154: poke 559,461 poke 53277,3 

180 POKE 5324B,X 

190 FOR Q=0 TO S 

200 READ P 

210 POKE PMBAS+512+Y+Q,P 

220 NEXT Q 

230 DATA 12, 12,8,63,72, 136,20, 34, B5 

240 POKE 53256,1 

245 FOR 0=9 TO STEP -1 

246 POKE PMBAS+512+Y+Q,PEEK<PMBAS+51 1+Y+Q) 

247 FOR 2 = 1 TO 100 : NEXT 2 1 NEXT Q 

248 Y = Y+1 

249 STOP 

For a movement upwards we have to begin at the top of our 

player. 

For an upwards movement change the following lines in the above 

program: 

245 FOR 0=0 TO 9 

246 POKE PMBAS+51 1+Y+Q, PEEK (PMBAS+512+Y+G) 

247 NEXT Q 
246 Y=Y-1 
249 GOTO 245 

As you can see in this example the movement in a vertical 
direction is much slower than the one in a horizontal direction, 
even without a delay loop in line 247. 



Movements in 
Machine language 



For that reason we will show how to speed up vertical movements 
by using machine language routines for this job. It is more impor- 
tant here to be able to use these machine language routines than to 
understand them. The machine language routines do the same as 
the BASIC statements used earlier except they do it much faster. 
We will enter the machine language routine in a subroutine. Type 
in and RUN the following program: 

100 I=PEEK( 106) -8 

110 POKE 54279, I 

120 PMBAS=I*25G 

130 FOR Q=Pf!3AS + 512 TO PMBAS+G40 

140 POKE 0,0 

150 NEXT Q 

iso x=ibo:y=ioo 

170 POKE 704,54."P0KE 559,46:P0KE 53277,3 

180 POKE 53248, X 

190 FOR 0=0 TO 8 

200 READ P 

210 POKE PMBAS+512+Y+Q,P 

220 NEXT G 

230 DATA 12, 12,8,83,72, 136,20,34, S5 

240 POKE 5325B, 1 

250 GOSUB 1000 

260 GOSUB 1100 

270 FOR 0=1 TO 80 

280 B=USR(UP,PMBAS+511+Y) :Y=Y-1 

290 NEXT Q 

300 FOR 0=1 TO 120 A similar program was 

310 X = X-i:POKE 53248, X published in COMPUTE 4/81. 

320 NEXT 

330 FOR 0=1 TO 80 

340 B=USR(D0WN,PMBAS+511+Y> :Y=Y+1 

350 NEXT 



3B0 FOR Q=l TO 120 

270 X=X+i:POKE 53248, X 

380 NEXT Q 

390 GOTO 270 

1000 DIM UPC0DE$(21 ) IUP=ADR < UPCODE* ) 

1010 FOR l'=UP TO UP+20 

1020 READ BIPOKE I , B 

1030 NEXT I ."RETURN 

1040 DATA 104,104,133,204,104,133,203 

1050 DATA 1 GO, 1 , 177,203, 136, 1 45, 203 

1060 DATA 200,200,192,11,208,245,96 

1100 DIM D0WNC0DE$(21 ) :DOWN=ADR(DOWNCODE$) 

1110 FOR I=DOWN TO DOWN+20 

1120 READ B: POKE I ,B 

1130 NEXT I : RETURN 

1140 DATA 104, 104, 133,204, i 04, 133,203 

1150 DATA 160,10,177,203,200,145,203 

1160 DATA 136,136,192,255,208,245,96 

This program moves our player up and left and down and right 

through the listing of the program. What' s new here is the fact 

that vertical and horizontal movements happen with about the 

same speed. 

The subroutine in lines 1000—1060 writes a machine language 

routine for upward movements into memory which can be 

executed directly by the microprocessor. The instructions are 

stored in the DATA-statements in lines 1040, 1050, 1060. The 

subroutine in lines 1100—1160 does the same for downward 

movements. 

Those subroutines are called in lines 280 (upward movement) 

and line 340 (downward movement). 

You can use these machine language routines for any image that's 

9 lines high and also if you use double line resolution (which is 

selected in line 170 in this example by: POKE 559,46). 

Alternating Shapes 

So far we have learned how to draw a player and move it around 
the screen. But the player seems to have no movement in itself. 
In this chapter we will try to change the shape of the player when 
it moves. This can be done by using two different shapes and, 
for example, writing them alternately into the player-missile 
area. 

10 



100 DIM P$<54> »V$(27) »D*<3) 

110 FOR 1=1 to ie 

120 READ Di 

120 P$(3*I-2,3*I ) = D$ 

140 NEXT I 

150 GRAPHICS 18:SETC0L0R 4,7,2 

1B0 X=50:Y=60 

170 POKE 553,46 

ISO I=PEEK( 106)-8:P0KE 54279,1 

190 PB=25G*I 

200 POKE 53277,3 

210 FOR I=PB+512 TO PB+B40 

220 POKE 1,0 

230 NEXT I 

240 POKE 704,22 

250 POKE 53248, X 

255 POKE 53250,1 

260 C = C+1 

270 IF C>3 THEN C=l 

280 ON C GOTO 290,300,290 

290 0$=P$( 1 ,27) :GOTO 310 

300 U$=P$(28,54) 

310 FOR 1=1 TO 9 

320 POKE PB+512+Y+I , OAL < V$ < 3*1 -2 , 3*1 ) ) 

330 NEXT I 

340 X=X+2:P0KE 53248, X 

350 IF X>190 THEN 350 

360 GOTO 260 

400 DATA 012,012,008,063,072,136,020,034,065 

4 1 DATA 012,012, 008 , 028 , 042 , 073 , 020 , 020 , 020 

If you RUN this program you should see that there are two 
alternating shapes written into the player-missile area. In addition, 
the position register is changed so it looks like our player is 
running from left to right across the screen. 

Let's have a closer look at that program. 

In lines 110—140 the data for both players are read into a string 
(PS). Lines 260—300 select alternately the lower and upper sub- 
string of PS In lines 310—330 this substring is converted back to a 
number and written into the player-missile area. Line 340 changes 
the position register. 

11 



Movements of 
Missiles 



Now that we know how to create and move players on the screen, 
it is time to use the missile as well. The next example shows the 
use of player and missile 0. Player and missile use the same color 
register but different position registers. Consequently, they can 
be moved independently. The location in memory for the missiles 
is PMBAS+384 (if you use double line resolution). This is for all 
four missiles together which means that there are only two bits in 
a row per missile which can be turned on or off. We turn on only 
one bit which is done in line 335 of the following listing. You 
will note that the location is not PB+384+Y but four more; the 
reason is that we want the bullet to come out of the hand of our 
little man and not out of his head. 

100 DIM P$<27) ,D$<3> 

110 FOR 1=1 TO 3 

120 READ D$ 

130 P$<3*I-2,3*I)=D$ 

140 NEXT I 

150 GRAPHICS lBISETCOLOR 4,7,2 

ISO x=5o:y=bo 

170 POKE 553, 4B 

130 I=PEEK( 10G)-S:P0KE 54279,1 

130 PB=25G#I 

200 POKE 53277,3 

210 FOR I=PB+512 TO PB+G40 

220 POKE 1,0 

230 NEXT I 

240 POKE 704,22 

250 POKE 52243, X 

2G0 POKE 53256,1 

310 FOR 1=1 TO 3 

320 POKE PB+512+Y+I , UAL ( P$ ( 3#I -2 , 3#I ) ) 

330 NEXT I 

335 POKE PB+388+Yrl 

12 



340 X=X+i:P0KE 53252, X 

350 IF X>190 THEN X=55 

360 GOTO 340 

400 DATA 012,012x008,033,072,136,020,034,065 

The next step is to expand the example to two players and two 
missiles. Try the following: 

100 I=PEEK ( 106) -8: POKE 54279,1 

110 PB=256*I 

1 20 X 1 =50 I Y 1 =60 : X2 = 1 80 I Y2 = 60 

130 FOR Q=PB+384 TO PB+768 

140 POKE Q,0 

150 NEXT Q 

160 GRAPHICS 18."SETCOL0R 4,7,2 

170 POKE 553,46 

180 POKE 53277,3 

190 POKE 704,221 POKE 705,90 

200 POKE 53248, XI : POKE 53249, X2 

210 POKE 53256, i: POKE 53257,1 

220 FOR Q=l TO 9 

230 READ P 

240 POKE PB+512+Y1+Q,P 

250 NEXT Q 

260 FOR Q=l TO 9 

270 READ P 

280 POKE PB+640+Y2+G,P 

290 NEXT Q 

300 POKE PB+384+4+Y1 ,5 

310 FOR Q=l TO 150 

320 POKE 53252, Xl+GI POKE 53253, X2-Q 

330 NEXT Q 

340 GOTO 310 

400 DATA 12,12,8,63,72,136,20,34,65 

410 DATA 12,12,8,28,42,73,20,20,20 

This program shows two players shooting at each other. If you 
watch that program you probably will miss the determination 
whether a player is hit by a missile. 
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Overlapping Detection 

(Collision Detection) 



To determine overlappings between missiles, players and playfield, 
the ATARI computer has 16 registers that indicate collisions. The 
register that indicates collisions between missile and player is at 
address 53256 (for details about hardware registers see the 
appendix). 

Once a collision has occured, the indication remains in that 
collision register until we write something into a register that is 
called "collision clear " (address 53278). 

Change the following lines in the program and watch the display 
of the contents of the collision register. 

ISO GRAPHICS 8:SETC0L0R 4,7,2 

320 POKE 53252, Xl+Q 

330 ? PEEK (53256) I POKE 53278, 0: NEXT Q 

You should see a "0" while missile is between the two players, 
a "2" when player 1 is hit and a "1 " when missile comes out of 
player (left player). 

Now that we know when the other player has been hit, we can 
create some kind of an "explosion routine". That means we have 
to change the shape of the player that was hit. The following 
sample shows how this can be done. 

100 I = PEEK (106) --8: POKE 54279,1 

110 PB=256*I 

1 20 XI =50 I Yl =60 : X2= 1 80 : Y2 = 60 

130 FOR 0=PB+384 TO PB+768 

140 POKE £3,0 

150 NEXT Q 

160 GRAPHICS 1B:SETC0LDR 4,7,2 

170 POKE 559,46 

ISO POKE 53277,3 

14 



ISO POKE 704, 22: POKE 705.90 

200 POKE 53248, XI .'POKE 53249, X2 

210 POKE 53256, 1 I POKE 53257,1 

220 FOR 0=1 TO 9 

230 READ P 

240 POKE PB+512+Y1+G,P 

250 NEXT G 

2B0 FOR 0=1 TO 9 

270 READ P 

280 POKE PB+S40+Y2+Q,P 

290 NEXT Q 

300 POKE PB+384+4+Y1 ,5 

310 FOR 0=1 TO 150 

320 POKE 53252, X 1+0 

330 IF PEEK (53256) =2 THEN GOSUB 500 : RESTORE 

:goto 220 

335 POKE 53278,0 

340 NEXT 

350 RESTORE IGOTO 220 

400 DATA 12, 12,8, G3, 72, 136,20,34,85 

410 DATA 12,12,8,28,42,73,20,20,20 

500 FOR = 20 TO 9 STEP -1 I POKE 705 , 1 0*Q I NEXT 

505 POKE 53252,1 

510 FOR 0=1 TO 9 

520 POKE PB+G40+Y2+Q,0 

530 NEXT Q 

540 POKE PB+640+Y2+8,24 

550 POKE PB+S40+Y2+9,255 

580 POKE 53278,0 

570 FOR 0=1 TO 1000 1 NEXT 

580 RETURN 

This program is similar to the one before. Line 330 checks the 
collision register. If a collision is detected, the program branches 
to the subroutine in lines 500—580. Line 335 clears the collision 
registers. Line 350 is necessary in case the collision is not detected 
which happens sometimes because of the slowness of BASIC. 
Line 500 changes the color of the player very quickly which 
makes him shake. 

Line 505 puts the bullet back. Lines 510-530 erase the player. 
Lines 540 and 550 create a new player (prone). Line 560 clears 
the collision registers. Line 570 is a delay loop. 
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Sound features 



In the chapters we have discussed so far you probably missed one 
feature of the ATARI computers and that is SOUND. 

The ATARI computers have four independent channels to 
generate sound and noise. For each channel you can define the 
frequency, the kind of sound (noise or tone) and the volume. 
The command looks like this: 

SOUND V,N,T, L 

where V is voice, N is note, T is tone and L is loudness. 

The kind of sound most often needed in games is a shot. 

If you type in: SOUND 0, 5, 0, 8 

you will hear a noise that may be used for a flying jet. 

If we manipulate the volume of that noise we can create a shot, 

a steam engine or a noise similar to the one at the beach. It is 

easy to change shot to an explosion, just change the delay in line 

40. 

10 REM SHOT 

20 FDR X=15 TO STEP ~1 

30 SOUND 0,5,0, X 

40 FOR 0=1 TO 3: NEXT O. 

50 NEXT X 

60 FOR Q=l TO 500: NEXT Q 

70 GOTO 10 



10 


REM STEAM LOCOMOTIVE 


20 


FOR X=15 TO STEP -1 


30 


SOUND 0,2,0, X 


40 


NEXT X 


50 


FOR Q=l TO 30: NEXT Q 


60 


GOTO 10 



16 



10 REM OCEAN 

20 FOR X=0 TO 15 

30 SOUND 0,2,0, X 

40 FOR Q=l TO 70: NEXT Q 

50 NEXT X 

60 FOR X = 15 TO STEP -1 

70 SOUND 0,2,0, X 

80 FOR Q=l TO 50: NEXT Q 

90 NEXT X 

100 GOTO 20 

To discover the sound you need for your own game you can use 
the following program: 

10 REM SOUNDGENERATOR 

20 FOR N=0 TO 255 STEP 5 

30 FOR T=0 TO 7 

40 FOR L=G TO 15 

50 PRINT "N=";N5" " ; "T=" 5 T; " ";"L=";L 

60 SOUND 0,N,T, L 

70 NEXT L 

80 NEXT T 

90 NEXT N 

If you like a sound generated by the above program press BREAK. 
The sound will stay until you enter CONT to continue with the 
program. To create more complex sounds you have to use two, 
three or four channels simultaneously. 
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Programming the 
Joystick 



Another feature of the ATARI computers are the four joystick 
connectors. Connect a joystick to the left connector and run the 
following program: 

10 PRINT STICK(O) 
20 GOTO 10 

You will get the following values, depending on the position of 
your joystick: 




If you run this program: 
10 PRINT STRIG(O) 
20 GOTO 10 

you will get a "1" if the joystick is not being used and a "0" if 
you press the red trigger button on your joystick. 
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Backgammon 



Backgammon 

Backgammon is a two-player game in which opponents try to 
bring their figures home as quickly as possible. The winner is the 
one who first removes all his figures from the playing field. On the 
lower left corner the computer shows the dice points he threw. 

A player must move any of his figures the same number of 
"points" as is shown on either of the dice. Then he must again 
move a figure (which may be the same figure again) the same 
number as the second die. When a player moves, he may not 
finally land on a point occupied by two or more of his opponent's 
figures. 

If there is a "double" (both dice are the same) you may move four 
times. 

If a figure is left alone on any "point" it is a "blot". The opponent 
may "hit" the "blot" by moving his figure onto this field if his 
dice roll permits. The figure which has been "hit" is moved back 
on to the "bar". The figures on the "bar" re-enter the playing 
field again before any other of that player's figures is moved. To 
re-enter, a player must roll a number 1 thru 6 not occupied by two 
or more of his opponents figures. If you want to bring a figure 
"home", all your other figures must be on the final six fields. If 
you can't move, then hit only "0" after the computer's question 
"from". 

Load the program and start it with "RUN". The computer dis- 
plays the name of the game. To start, press RETURN. The playing 
field will be plotted to the screen and the computer asks who 
wants to begin, (red = 1 — blue = 2). Enter the number with RE- 
TURN. The computer will throw the dice and display the points 
in the color of the player who has the next move. 

19 



red 
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playing field Back Gammon 
Number of figures in the bank 

Player's dice 



blue 
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text window 



Red moves from the higher to the lower numbers, blue vice versa. 

Now enter from where and to where you choose to move and then 

enter RETURN. If a move is impossible, the computer will print 

"sorry, no move is possible" and wait for RETURN. 

If some figures are on the bar, the computer will print "from bar 

to" and wait for the input. 

To bring any figure home, red must enter "to 0" and blue " to 

25". 



A$ < 1 ) 
#6:? #6; ■ 
INPUT A$ 
POKE 752, 1 
3, iOsSETCOLOR 



BaCkGaMmon" 



1.8. 12:SETC0L 



1 B DRAWTO 



158, 11 



10 DIM A (26) ,B<26) 

20 GRAPHICS 2:? 

30 POKE 710, 152: 

1000 GRAPHICS 7: 

1010 SETCOLOR 0, 

OR 2, 12,3 

1060 COLOR 3: PLOT 20, 70s DRAWTO 

159, 10: DRAWTO 159, 70: DRAWTO 20,70 
1070 PLOT 2 1,69: DRAWTO 21,11:DRAWT0 
DRAWTO 158, 69: DRAWTO 21,69 

1072 PLOT 0,40: DRAWTO 20, 40: PLOT 0,39:DRAWT 
20,39 

1074 PLOT 0,69: DRAWTO 20,69: 
OT 0,70: DRAWTO 21, 70: DRAWTO 
1 080 C=0 : Z = 1 : GOSUB 4000 
1090 C=l: Z=45: GOSUB 4000 

1140 Z=0:X=37: COLOR 2: GOSUB 
4130 

1141 X=59: GOSUB 4120: X=65: GOSUB 4110 



DRAWTO 
21,79 



'.0,79:PL 



4120: X=43s GOSUB 
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1142 X=81: GOSUB 41 10: X=S7: GOSUB 4190 

1143 X=103: GOSUB 41 10s X=109: GOSUB 4170 

1144 X=125: GOSUB 41 10: X=131 s GOSUB 4150 

1145 X=147: GOSUB 41 10: X=153: GOSUB 4130 
1150 X =26! COLOR 1 : GOSUB 4120: X =32 ! GOSUB 414 


1160 X=48: GOSUB 4120: X=54: GOSUB 4120 
1170 X=70: GOSUB 4120: X=76: GOSUB 4100 
1190 X =92: GOSUB 41 10: X=98: GOSUB 4180 
1210 X=l 14: GOSUB 41 10: X=120: GOSUB 4160 
1230 X= 136: GOSUB 41 10: X= 142: GOSUB 4140 

1270 Z=73:X=38: GOSUB 4120 

1271 X =60: GOSUB 4140: X =82: GOSUB 4160: X= 104: 
GOSUB 4180 

1274 X= 124: GOSUB 41 10: X= 130: GOSUB 4100 

1275 X= 147: GOSUB 41 10: X=l 53: GOSUB 4120 
1279 COLOR 2:X=27:G0SUB 41 10: X=49: GOSUB 413 
0:X=71: GOSUB 4150s X =93 « GOSUB 4170: X=l 15: GOS 
UB 4190 

1360 X = 135: GOSUB 41 10: X = 141 : GOSUB 4110 

1380 FOR M=0 TO 26: A (M) =0: B (M) =0: NEXT M 

1390 B(1)=2:B(12)=5:B(17)=3:B(19)=5:A(24)=2 

:A(13)=5: A<8)=3: A (6) =5 

1400 X=30: Z=13: COLOR 1 : GOSUB 4200 

1410 Z=17:60SUB 4200 

1420 X=151:F0R 2=13 TO 29 STEP 4 

1425 GOSUB 4200: NEXT Z 

1430 X=85:F0R Z=50 TO 66 STEP 4 

1435 GOSUB 4200: NEXT Z 

1440 X=107:F0R Z=5S TO 66 STEP 4 

1445 GOSUB 4200: NEXT Z 

1450 COLOR 2 

1460 X=151:F0R Z=50 TO 66 STEP 4 

1465 GOSUB 4200: NEXT Z 

1470 X=85:F0R Z=13 TO 29 STEP 4 

1475 GOSUB 4200: NEXT Z 

1480 X=107:F0R Z=13 TO 21 STEP 4 

1485 GOSUB 4200: NEXT Z 

1490 X=30:F0R Z=62 TO 66 STEP 4 

1495 GOSUB 4200: NEXT Z 

1500 X=10: Z=20:G0SUB 4100 

1505 Z=53: COLOR 1 : GOSUB 4100 

1510 TRAP 1510:7 "Player 'RED' =1: Player • 
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BLUE : 



GOSUB 2000 

IF C1=C2 THEN 1700 

G=2sE=0 

A0=A0+A<0> : A<0> 

GOSUB 6000 



"O 



E 



=2"! INPUT W: IF W* 
1550 A0=0sB25=0 
1 600 
1 605 
1610 
1615 
1690 
1 700 
1710 
1720 
T A$: 
1750 
1755 
1 760 
1770 
1772 
1775 
1 780 
2000 
2010 
2020 
2500 
2505 
2510 
2515 
2590 
2600 
2610 
2620 
T A$: 
2647 
2650 
2655 
2660 
2670 
2672 
2675 
2680 
3000 
3001 
3003 
THEN 
3010 



I THEN 
GOSUB 



J 500 



OOO 



-0 THEN 1750 
but you can' 



!: GOSUB 5000 



E1+E2: IF E 
? "I'm sorry 
GOTO 2500 
GOSUB 3000 
IF Nl=l THEN 2500 
GOSUB 3200 
IF Bl»l THEN 1750 
GOSUB 3400: GOSUB 10000 
G=G-1:IF 6=0 THEN 2500 
GOTO 1690 

I F A ( ) +A0- 1 5 THEN .1. 1 000 
IF B25+B<25>=15 THEN 11100 
RETURN 

? "}"sNl=GsG=4sS= 
GOSUB 2000 
IF C1=C2 THEN 2600 
G=2: E=0 

B25=B ( 25 ) +B25 : B ( 25 ) =0 
GOSUB 6100 

E=El+E2sIF E>0 THEN 2650 
? "I'm sorry but you can 
GOTO 1600 
GOTO 1600 
GOSUB 3000 
IF Nl = l THEN 
GOSUB 9200 
IF Bl=l THEN 
GOSUB 9400: GOSUB 10000 
G=G-1:IF G=0 THEN 1600 
GOTO 2590 
IF S=2 THEN 9000 
IF AA>0 THEN 3090 
TRAP 3003:? "from 
12000 
TRAP 3010:? "to " 



t move 



I NPU 



t move ! " : I NPU 



1600 
2650 



", : INPUT A Is IF A 1=0 
s I NPUT A2 s F 1 =0 : F2=0 



22 



3017 IF S=2 THEN F=A2-A1 

3020 IF 5=1 THEN F=A1-A2 

3030 IF F=»C1 THEN 3060 

3040 IF F=C2 THEN 3080 

3050 ? "Sorry, but you can't move this way" 

s GOTO 3000 

3060 Fl=l: RETURN 

3080 F2=l: RETURN 

3090 Al=25:? "From Bank " ; : BOTO 3010 

3200 IF AA>0 THEN 3203 

3201 IF A(A1)=0 THEN 3215 
3203 IF A2-0 THEN 3270 
3205 IF B<A2>=0 THEN 3230 
3210 IF B(A2)=1 THEN 3220 

3215 ? "Sorry, but you can't move this way" 

:B1 = 1 s RETURN 

3220 B<A2>=0:BB=BB+1 ! X=10s Z=20:G0SUB 4300 

3225 COLOR 2: ON BB GOSUB 41 10, 4120, 4130, 414 

0,41 50 ,4160,41 70 , 4 1 80 ,, 4 1 90 

3230 IF A 1=25 THEN 3245 

3232 A ( A 1 ) =A ( A 1 ) - 1 S A ( A2 ) = A < A2 ) + 1 

3240 B l=0s RETURN 

3245 X=10: Z=53: COLOR Ss GOSUB 4300 

3247 AA=AA-1: A < A2> =A ( A2) +1 

3250 COLOR 1 : ON AA+1 GOSUB 4100,4110,4120,4 

1 30 ,4140,4150,4160,41 70 , 4 1 80 

3260 GOTO 3240 

3270 IF L=0 THEN 3205 

3275 GOTO 3215 

3400 IF A(A1)>5 THEN 3450 

3402 IF A 1=25 THEN 3450 

3405 A=Als GOSUB 8000 

34 1 A=A ( Al ) +1 s IF A 1 > 1 2 THEN GOTO 3480 

3415 A=A (Al )+l: IF AK13 THEN GOSUB 8300 

3420 COLOR Os GOSUB 4200 

3450 IF A(A2)>6 THEN 3475 

3452 IF A2=0 THEN RETURN 

3455 A=A2s GOSUB 8000 

3460 A=A<A2)iIF A2>12 THEN GOTO 3490 

3465 A=A(A2):IF A2< 13 THEN GOSUB 8300 

3470 COLOR 1 s GOSUB 4200 s RETURN 

3480 GOSUB 8200; GOTO 3420 

3490 GOSUB 8200 s GOTO 3470 
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4000 FOR X=30 TO 151 STEP 11:C=C+1:IF C=3 T 

HEN C=l 

4010 COLOR CsPLOT X,Z:DRAWTO X,Z+25:PL0T X- 

1,Z: DRAWTO X-l , Z+25: NEXT X: RETURN 

4100 PLOT X,Z: DRAWTO X+3, Z: DRAWTO X+3,Z+6:D 

RAWTO X, Z+6: DRAWTO X , Z : RETURN 

4110 PLOT X+2,Z: DRAWTO X+2, Z+6: RETURN 

4120 PLOT X,Z:DRAWTO X+3, Z: DRAWTO X+3, Z+3: D 

RAWTO X, Z +3 :; DRAWTO X, Z+6: DRAWTO X+3, Z+6: RET 

URN 

4130 PLOT X,Z: DRAWTO X+3, Z: DRAWTO X+3, Z+6: D 

RAWTO X, Z+6: PLOT X, Z+3: DRAWTO X+3, Z+3: RETUR 

N 

4140 PLOT X+3, Z: DRAWTO X+3, Z +6: PLOT X,Z:DRA 

WTO X,Z+3: DRAWTO X+3, Z+3: RETURN 

4150 PLOT X+3, Z: DRAWTO X,Z: DRAWTO X,Z+3:DRA 

WTO X+3, Z+3: DRAWTO X+3, Z+6: DRAWTO X, Z+6: RET 

URN 

4160 PLOT X+3, Z: DRAWTO X,Z: DRAWTO X,Z+6:DRA 

WTO X+3, Z+6: DRAWTO X+3, Z+3: DRAWTO X, Z+3: RET 

URN 

4170 PLOT X,Z: DRAWTO X+2,Z: DRAWTO X+2,Z+6:R 

ETURN 

4180 PLOT X,Z : DRAWTO X+3, Z: DRAWTO X+3, Z+6: D 

RAWTO X, Z+6: DRAWTO X,Z:PLOT X+3, Z+3: DRAWTO 

X, Z+3: RETURN 

4190 PLOT X, Z+6: DRAWTO X+3, Z+6: DRAWTO X+3, Z 

:DRAWTO X,Z:DRAWTO X,Z+3:DRAWT0 X+3,Z+3:RET 

URN 

4200 FOR M=Z TO Z+1:PL0T X -4, M: DRAWTO X-2,N 

sPLOT X+1,M: DRAWTO X+3, M: NEXT N: RETURN 

4300 COLOR 0:FOR A=X TO X+4:PL0T A, Zs DRAWTO 

A, Z+6: NEXT A: RETURN 
4310 COLOR OsFOR Z=71 TO 79: PLOT 0,Z: DRAWTO 

19, Z: NEXT Z : RETURN 
4500 C=INT(RND(1) *6)+l: RETURN 
5000 GOSUB 4310 
5005 BOSUB 4500: C1=C 
5010 GOSUB 4500: C2=C 
5020 X=l: Z=71: COLOR S 

5030 ON CI GOSUB 4110,4120,4130,4140,4150,4 
1 60 

5040 X = 1 1 s ON C2 GOSUB 4110,41 20 , 4 1 30 , 4 1 40 , 4 
150,4160 
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;>-t-A(4)+A<5)+A<6) 



6999 



5050 RETURN 

6000 L= 1 : N=A0+A (1)+A(2)+AC 

: IF N=15 THEN L=0 

6005 E1=0:E2=0:IF AA>0 THEN 

FOR D=l TO 24 

IF A<D>>0 THEN GOSUB 7000 

NEXT D: RETURN 

L=24: N=B25+B (24) +B (23) +B (22) +B (21 ) +B (2 
) +B ( 1 9 ) : I F N= 1 5 THEN L=25 
6105 El=0sE2=0:IF BB>0 THEN 7099 

FOR D=l TO 24 

IF B(D)>0 THEN GOSUB 7100 

NEXT D: RETURN 

D=25 

D1=D-Cl! IF 

IF B(D1) >1 

El = l 

D1=D-C2: IF 

IF B(D1) >1 

E2=ls RETURN 

D=0 

D1=D+C1:IF (Dl) 

IF Dl>25 THEN 7130 

IF A(D1) >1 THEM 7V-. 

El = l 

Dl=D+C2sIF (D1)>L THEN RETURN 

IF Dl>25 THEN RETURN 

IF A(D1)>1 THEN RETURN 

E2=l: RETURN 

IF A>20 THEN 8005 

ON A GOTO 80 1 , 8020 , 8030 , 8040 , 8050 , 806 
, 8070 , 8080 , 8090 ,8100,8110,8120,8120,8110,8 
100, 8090, 8080, 8070, 8060, 8050 
8005 A=A-20:0N A GOTO 8040,8030,8020,8010 



6010 
6020 
6030 
6100 



6110 
6120 
6130 
6999 
7000 
7010 
7020 
7030 
7040 
7050 
7099 
7100 
7105 
7110 
7120 
7130 
7135 
7140 
7150 
8000 
SOO 1 



(Dl)< 


JL THEN 7030 


THEN 


7030 


(Dl)-: 


:.'L THEN RETURN 


THEN 


RETURN 



>L THEN 7130 



30 



80 1 


X = 


=30: RETURN 


8020 


X« 


--4 1 s RETURN 


8030 


x= 


=52: RETURN 


8040 


x= 


=63: RETURN 


8050 


x« 


=74: RETURN 


8060 


x= 


=85: RETURN 


8070 


x= 


=96: RETURN 


8080 


x= 


= 107 .-RETURN 


8090 


x= 


=118: RETURN 
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8100 X= 129: RETURN 

8110 X = 140s RETURN 

8120 X = l 51 .-RETURN 

8200 ON A GOTO 8210,8220,8230,8240,8250,826 



8210 Z = 13: RETURN 

8220 Z=l 7: RETURN 

8230 Z«21: RETURN 

8240 Z=25s RETURN 

8250 Z =29: RETURN 

8260 Z =33: RETURN 

8300 ON A GOTO 8310,8320,8330,8340,8350,836 



8310 Z =66: RETURN 

8320 Z =62: RETURN 

3330 Z =58: RETURN 

8340 Z=54: RETURN 

8350 Z =50: RETURN 

8360 Z =46: RETURN 

9000 IF BB<1 THEN 3003 

9010 A 1=0:? " From Bank " ; : GOTO 3010 

9200 IF BB>0 THEN 9203 

9201 IF B(A1)=0 THEN 9215 
9203 IF A2=25 THEN 9270 
9205 IF A(A2)=0 THEN 9230 
9210 IF A(A2)=1 THEN 9220 

9215 ? "Sorry, but. you can't move this way" 

:B1=1: RETURN 

9220 A(A2)=0:AA=AA+1:X=10: Z=53:G0SUB 4300 

9225 COLOR 1 : ON AA GOSUB 4110,4120,4130,414 

04150,4160,4170,4180,4190 

9230 IF A 1=0 THEN 9245 

9232 B(A1)=B(A1)-1:B(A2)=B(A2)+1 

9240 B 1=0: RETURN 

9245 X=10s Z=20: COLOR S: GOSUB 4300 

9247 BB=BB- 1 : B ( A2 ) =B ( A2 ) + 1 

9250 COLOR 2: ON BB+1 GOSUB 4100, 41 10, 4120, 4 

1 30 , 4 1 40 , 4 1 50 , 4 1 60 , 4 1 70 ,4180,41 70 , 4 1 80 

9260 GOTO 9240 

9270 IF L=25 THEN 9205 

9275 GOTO 9215 

9400 IF B(A1)>5 THEN 9450 

9402 IF A 1=0 THEN 9450 
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9405 

9410 

9415 

9420 

9450 

9452 

9455 

9460 

9465 

9470 

9475 

9480 

9490 

1 000( 

100K 

1 00 2 ( 

1003( 

1 1 OOC 

11 IOC 

1 2 OOC 
12010 

1 2 1 o<: 



A-Al: GOSUB 8000 
A=B(A1)+1: IF Al>12 THEN 
A=B(A1)+1:IF AK13 THEN 
COLOR 0:; GOSUB 4200 
IF B(A2) >6 THEN 9475 
IF A2=25 THEN RETURN 
A=A2:G0SUB 8000 
A=B<A2):IF A2>12 THEN 
A=B(A2):IF A2<13 THEN 
COLOR 2: GOSUB 4200 
RETURN 

GOSUB 8200: GOTO 9420 
GOSUB 8200: GOTO 9470 
IF C1=C2 THEN RETURN 
IF F=C1 THEN CI =50 
IF F=C2 THEN C2=50 
RETURN 

? "RED is the winner": 
? "Blue is the winner' 
IF N=15 THEN 12100 



GOTO 9480 
GOSUB 8300 



GOTO 9490 
GOSUB 8300 



END 
:END 



? "You have 
Nl=l: RETURN 



to move!": GOTO 300: 
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S MARTY 



SMARTY 

Load the program and start it with RUN. The computer displays 
the name of the game and asks you whether or not you need in- 
structions. Enter "Y" or "N" and Return. After reading the 
instructions, press START to begin the game. In case of "N" the 
computer will begin immediately. 

First the computer will ask how many positions you want to guess 
(3-10). Enter the number and the RETURN. 

After that the computer will ask how many characters you want 
(5 — 16). Enter the number and the RETURN. If you choose 
"5" then the possible characters are 0, 1,2, 3, 4, 5; if you choose 
"16" then the possible characters are 0, 1, 2. ..9, A, B, ...G. Each 
time the combination is N+1 characters (N being number you 
entered). 

Now the computer looks for a combination and you guess it. 
The characters are displayed on the left side of the graphics 
window. A wrong character cannot be deleted!! 
The computer checks for correct characters. For each character 
at the correct position the computer displays a green "X". For 
every other correct character at a wrong position a violet "X". 

10 DIM A (21) , B(21) ,D*(300) ,C<10> , CC(IO) ,D(2 

1) 

20 DIM A*(iO) »B#(10) ,C*(i)sAB=OsA<0>=0 

30 GRAPHICS 2:P0KE 85,5:? #6;" SMARTY " 

42 FOR A=l TO 20s A (A) =0: B (A) =0: D (A) =10: NEXT 
A: FOR A=l TO 300: D$ < A, A) ="-" : NEXT A 

43 IF A(0)=0 THEN GOSUB 3000 

45 A(0)=0:POKE 84,8:? #6; "13-10! positions 

are possible" 

50 TRAP 50: INPUT A 

52 IF A<3 OR A>10 THEN 45 

55 POKE 84,8:? #6;"!5-10i characters are 

possibl e" 

60 TRAP 60: INPUT B 
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62 IF B<5 OR B>16 THEN 55 

200 POKE 84,8s? #6s"I look for a GOOD Com 

BInaTIon " 

210 FOR C=l TO AsD=INT(RNDCO)*(B+l) ) sGOSUB 

220s A$<C,C )=C$: NEXT C:G0T0 290 

220 IF D=10 THEN C$^"A" 

221 IF D=ll THEN C$="B" 

222 IF D=12 THEN C$^"C" 

223 IF D=13 THEN C$=="D" 

224 IF D=14 THEN C$="E" 

225 IF D=15 THEN C$="F" 

226 IF D=16 THEN C$="G" 

227 IF D=0 THEN C$="0" 

231 IF D=l THEN C*="l" 

232 IF D=2 THEN C$="2" 

233 IF D=3 THEN C$="3" 

234 IF D = 4 THEN C*="4" 

235 IF D=5 THEN C$="5" 

236 IF D=6 THEN C$--="6" 

237 IF D=7 THEN C*="7" 

238 IF D=8 THEN C*="8" 

239 IF D=9 THEN C$="9" 

240 RETURN 

290 FOR C--1 TO 999s NEXT C 

295 BRAPHICS 1 : SETCOLOR 2, 2, 2s SETCOLOR 0,2, 

10: POKE 752,1: POKE 54279, 56s POKE 559,46:G0S 

UB 2000 

300 GOSUB 4100: D=0:AB=AB+1: FOR C=l TO 181 S 

TEP 10:D=D+1:P0KE 84,D-1:P0KE B5,10-A 

305 FOR COC TO C+A-l : D$ (CC, CO =D$ <CC+10, CC 
+10) sNEXT CC 

306 ? #6;B$ (C, C+A-l > : s GOSUB 310: NEXT C:GOTQ 
350 

3 10 A < D ) =A ( D+ 1 ) : I F A ( D ) =0 THEN 320 

315 FOR E=l TO A(D)s? #6: '*>; " s : NEXT E 

320 B ( D ) =B ( D+ 1 ) : I F B ( D ) =0 THEN 330 

325 FOR E--=l TO BCD):? #6; ";■: " s. : NEXT E 

330 D ( D ) =D ( D+ 1 ) s I F D ( D ) =0 THEN. 340 

335 FOR E=l TO D(D)s? #6;" "ssNEXT E 

340 RETURN 

350 POKE 84, 19: POKE 85,10-A 

355 FOR C=l TO 2*As? #6;" "5: NEXT C 

358 POKE 84, 19: POKE 85, 10- As GOSUB 4000 
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Combination: ":' 
TO AsGOSUB 1000 1 



pass 



10:C(C)=0:CC(C)=0:NEXT C: A(2 



A$(C,C)=B$(C,C) THEN C( 



359 ? "Your 

360 FOR C=l 
)=C*!NEXT C 
370 POKE 764,2 
380 FOR Ol TO 
0) =0: B (20) =0 
390 FOR C-l TO As IF 
C)=l: A(20)=A(20>+1 
400 NEXT CsFOR Ol TO A 
405 IF C(.C)=1 THEN 430 
410 FOR CC=1 TO As IF CC(CC) 
412 IF C(CC)=1 THEN 420 
415 IF A*<C»C>=B*(CC,CC) THEN 
;CC(CC)=1:G0T0 430 

420 NEXT CC 
NEXT C 

FOR C=l TO AsD*(190+C)=B*(C) s 
D ( 20 ) = 1 0-A ( 20 ) -B ( 20 ) 
D(21)=D(20) :A(21)=A(20) :B(21) 
D=20:G0SUB 310 
IF A<20)=A THEM 



AB 



#6;C$s :B*(C,C 



1 THEN 420 



B(20)=B(20>+1 



430 
440 
441 
442 
445 
450 
460 
500 



NEXT C 



=B<20) 



GOTO 300 



' "You tried 
for another 



? "You 
";AB; " 
game" 



500 

■found 
t i mes 1 



the combination": 
:? "Press < START > 



ilO 



< SELECT > to end" 



520 IF PEEK (5: 

53248,0: RUN 
530 IF PEEK < 5: 
E 53248,0: END 
540 GOTO 520 

999 END 

1000 POKE 764,255 
PEEK (764) =50 
PEEK (764) =31 
PEEK (764) =30 
PEEK (764) =26 
PEEK (764) =24 
PEEK (764) =29 
PEEK (764) =27 
PEEK (764) =51 
PEEK (764) =53 
PEEK (764) =48 



79) =6 THEN POKE 53277, 4 s POKE 



79) =5 THEN POKE 53277, 4: POK 



1 1 


IF 


1011 


IF 


1 1 2 


IF 


1 1 3 


IF 


1 1 4 


IF 


1015 


IF 


1016 


IF 


1017 


IF 


1018 


IF 


1 1 9 


IF 



THEN 


C*= 


"0": RETURN 


THEN 


C$= 


"1 "s RETURN 


THEN 


C$= 


"2": RETURN 


THEN 


C*= 


"3": RETURN 


THEN 


C$= 


"4": RETURN 


THEN 


C* = 


"5": RETURN 


THEN 


C$= 


"6" s RETURN 


THEN 


c$= 


"7": RETURN 


THEN 


c$= 


"8" s RETURN 


THEN 


c*= 


"9": RETURN 
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1020 


IF 


1021 


IF 


1022 


IF 


1 023 


IF 


1024 


IF 


1025 


IF 


1026 


IF 



PEEK (764) =63 

PEEK (764) =21 

PEEK (764) =18 THEN C$ 

PEEK (764) =58 THEN C$ 

PEEK (764) =42 

PEEK (764) =56 

PEEK (764) =61 



THEN C*="A": RETURN 
THEN C*="B": RETURN 
"C": RETURN 
"D" : RETURN 
C*="E": RETURN 
"F": RETURN 
"B"s RETURN 



THEN 
THEN C$ 
THEN C$ 



1030 GOTO 1010 

2000 FOR E* 14860 TO 14943 

2010 POKE E, 1:NEXT E 



2020 
2030 
2090 



E 
E 



0:NEXT 
0:NEXT 



E 
E 



FOR E=14852 TO 14859: POKE 
FOR E= 14944 TO 14972: POKE 
POKE 704 , 222 : POKE 53256 , 2 : POKE 53248 , 1 
21: POKE 53277, 2: POKE 54279,56 
2100 RETURN 

3000 POKE 84,8:? #6; "DO YOU NEED INSTRUCT 10 
NS":? " ! Y-N !" 

3010 INPUT C$: IF C$="Y" THEN 3030 
3020 ? " > " : POKE 84,8:? #6 ; " 

" : RETURN 
SETCDLDR 2, 0, O: SETCOLOR 4,0 
8 
J=6+PEEK (742) *256+PEEK (741 ) 



3030 GRAPHICS 0: 
,0: SETCOLOR 1,3, 

3031 POKE 752, 1: 



3032 A(0)=1:P0KE J +1,7: POKE 82, 2: POKE 752,0 

sPOKE J +2, 6 

3035 ? :? " MASTER mind ":? :? "I will 1 

ook -for a combination,":? "and you may gues 

s it!" 

3040 ? "The combination consists o-f the":? 

"numbers 0-9 and the letters ABCDEFG, " 

3050 ? "You select the difficulty by choosi 

ng":? "the numbers of positions and":? "cha 

racters" 

3070 ? "For any character at the correct":? 

"position I will set a green ' X n . " 
3075 ? "For any correct character at a wron 

g" 

3080 ? "position I will set a violet * X r . " 

3100 ? : ? "Good luck ! " 

3110 ? "Press <START> to begin." 

3120 IF PEEK (53279) =6 THEN 30 

3130 GOTO 3120 
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4000 POKE 54272, OC: POKE 53774, NGs POKE 54286 
, M I s POKE 53248 ,121s RETURN 

4 1 00 M I =PEEK ( 54286 ) s NQ=PEEK ( 53774 ) s QC=PEEK ( 
54272 ) : POKE 54286 , : POKE 53774 , O : POKE 54272 
, : POKE 53248 ,10: RETURN 
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BOMBER 



BOMBER 

Bomber is a game that demonstrates how to use the P/M graphics 
of your ATARI computer and how to simulate the flight of a 
bomb or projectile. 

The program uses players to 3 and missiles and 1. Player is 
the bomber; player 1 the gun. The two other players are used to 
simulate the explosions of players and 1 . Missile is the aircraft 
bomb; missile 1 the gun projectile. The players are defined the 
same way each time. First calculate the P/M base address and store 
it (line 40 and 50). Then set P/M address (line 60). Then decide 
on single line resolution (POKE 559,62) or double line resolution 
(POKE 559,46). Our program illustrated here demonstrates only 
double line resolution: single line resolution would cause some 
changes in the player start address, etc. 
With a POKE 53277,3 you enable P/M graphics. 



Now you can draw the player; 
Each player is eight bits wide: 



lines 100 to 130 build player 0. 



Bit 

del. value 



7 


6 


5 


4 


3 


2 


1 





128 


64 


32 


16 


8 


4 


2 


1 



If you want to draw a player you must calculate the bytes you 

want to set for each line. 

(E. g., if you want to set the right two bytes of any line of the 

player, you only Poke the decimal value of 1 + 2 = 3 to the 

address where you want to store it). 

The missiles are two bits wide and all lie on the same line. 



Missile 

Bit 

del. value 



M3 


M2 


M1 


M0 


7 


6 


5 


4 


3 


2 


1 





128 


84 


32 


16 


8 


4 


2 


1 
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To set the missile set only the bits of the missile. 
The simulation of the flight of the missiles follows physical for- 
mulas (see lines 1000 to 2200). The lines of the program are 
explained in REM statements. Please look at them. 



5 OPEN #1,4,0, "K: " 

10 GRAPHICS 3+16sSETC0L0R 0, 3, 5: SETCDLOR 4,8 

,2s REM BACKGROUNDCOLOR 

12 COLOR Is PLOT 0,23sDRAWT0 39, 23: REM DRAW (3 

ROUND 

20 X=240: X 1=120: Yl=100: VX=150: V01=200: VY=0: G 

=9.81: Y=20 : REM I N I T I AL I SAT I ON 

40 J=PEEK(106)-8:REM P/M BASEADREGS 

50 POKE 54279, J: REM STORE P/M ADRESS 

60 PMBASE=256*J:REM PLAYERADDRESS 

70 POKE 559, 46: REM DOUBLE LINE RESOLUTION 

80 POKE 53277, 3: REM P/M ENABLE 

100 FOR I=PMBASE+512 TO PMBASE+640: POKE 1,0: 

NEXT I: REM CLEAR PLAYER 

110 RESTORE 130: FOR I=PMBASE+512+Y TO PMBASE 

+517+Y:READ A: POKE I, A: NEXT I s REM THIS LOOP 

DRAWS PLAYER 

120 REM PLAYER IN DATA 

1 30 DATA 1,1,3,63, 255 , 1 26 

132 FOR I=PMBASE+640 TO PMBASE+768: POKE 1,0: 

NEXT I: REM CLEAR PLAYER 1 

134 RESTORE 138: FOR I=PMBASE+640+Yl TO PMBAS 

E+647+YlsREAD A: POKE I, A: NEXT I : REM THIS LOO 

P DRAWS PLAYER 1 

1 38 DATA 1 , 2 , 36 , 56 , 56 , 60 , 62 , 63 

140 POKE 53260, 2: REM MISSILE SIZE 

142 FOR I=PMBASE+768 TO PMBASE+896: POKE 1,0: 

NEXT I: REM CLEAR PLAYER 2 

144 RESTORE 148: FOR I=PMBASE+768+Yl TO PMBAS 

E+774+Yl:READ A: POKE I, A: NEXT I : REM THIS LOO 

P DRAWS PLAYER 2 

1 48 DATA 1 6 , 40 ,0,1 1,74, 32 , 8 

PMB ASE+5 1 : POKE I , : 
(1+2) :QNE MISSILE 



15< 


> F 


: 0R I=PMBASE+384 


TO 


P! 


NEXT 


I: REM CLEAR- 


MISSIL 


ES 


IS 


8 


BIT WIDE 
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160 POKE 704, 88: REM PLAYER/MISSILE OsPINK 



165 POKE 705 



,197: REM PLAYER/MISSILE 1 s GREEN 



167 POKE 706, 210: REM PLAYER2:DARK 

169 POKE 707, 200: REM PLAYER 3s YELLOW 

190 POKE 53278, 15: POR X=200 TO 44 STEP -2:P0 

KE 53248, X: REM ' 53278 ' :- COLL 1. 8 ION CLEAR; L 

OOP: PLAYER MOVEMENT 

200 ST=ST I CK ( ) : X 1 = X 1 +3 * < ( ST*7 ) + I X 1 < 200 ) ) : X 1 

=Xl-3*<<ST*ll)+<Xi>50>)sREM CALCULATION OF N 

EW PLAYER 1 POSITION 

210 POKE 53249, XI s REM DRAW PLAYER AT NEW POS 

ITION 

220 IF PEEK (764)0255 AND GUNOl THEN GET #1 

:,W:W=<W-48) /8: VX 1=V01 *COS < W) s VY1=V01 *SIN (W) : 

T 1 =0 : GUN= 1 s XP 1 = X 1 +6 

225 REM LINE 220 ASKS KEYBOARD WHETHER ANY K 

EY IS PRESSED DOWN 

230 IF BUN=1 THEN GOSUB 2000: REM MOVEMENT OF 

MISSILE 1 
240 IF B0MB=1 THEN GOSUB 1000: GOTO 260: REM M 
QVEMENT OF MISSILE 

250 IF RND (0) <0. 5 THEN BOMB-1 : XP=Xs T=0: Z=50: 
REM BOMB TO BE. DROPPED ? 
260 NEXT X: GOSUB 5000: GOTO 190: REM AGAIN AND 

AG A I N 
302 IF 1=20 THEN POKE 53258,3 
1000 REM MISSILE FIRED 

1005 TRAP 1200: REM IF MISSILE OUT OF RANGE T 
HEN G„ 1200 

1040 Z = Z-1:T=T-+1:REM TIME INCREASED BY 1 
1150 Y0=G/2#T#T: Y0= ( YO/50) +Y+4: REM MATH ROUT 
INE TO CALCULATE Y VECTOR OF FLIGHT OF MISSIL 
E 

1 1 60 I F YO > 1 1 THEN BOMB=0 : SOUND , , , O : GOS 
UB 3000: RETURN s REM REM MISSILE REACHED GROU 
ND 
1170 XM=<VX*T> /50:REM CALCULATION OF X VECTOR 

OF FLIGHT 
1180 POKE PMBASE+384+YH,0:P0KE PMBASE+384+Y0 
, 3: POKE 53252, XP-XMs SOUND 0, Z , 10, 14s YH=YO: RE 
M MISSILE FLIGHT 
1190 RETURN : REM END OF SUBRUTINE 
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1 200 POKE PMBABE+3B4+Y0 , : BOMB=0 : SOUND , , 

,0s RETURN 

2000 REM MISSILE 1 FIRED 

2010 TRAP 2200: REM IF MISSILE IS OUT OF RANG 

E THEN B.2200 

2140 T1=T1+1:REM TIME INCREASED BY 1 

2 150 Y 1 =-G/2*T 1 *T 1 +VY 1 *T 1 j Y 1 *ABS ( ( Y 1/20 ) -- 105 

):REM CALCULATION OF YVECTOR OF FLIGHT 

2160 IF YK10 OR Yl>120 THEN GUN=0: SOUND 1,0 

, , : RETURN : REM MI SB I L.E OUT OF RANGE? 

2170 XMl=<VXl*Tl>/20sREM CALCULATION OF XVEC 

TOR OF FLIGHT 

2180 POKE PMBASE+3B4+YH 1,0: POKE PMBABE+3B4+Y 

1 , 4: POKE 53253, XP1+XM1 : YH1=Y1 : SOUND 1 , Tl , B, 1 

4: REM MISSILE FLY 

2190 GOBUB 3500: RETURN : REM END OF SUBROUTIN 

E 

2200 POKE PMBASE+384+ Y 1 , : BUN-0 : SOUND 1,0, , 

0: RETURN 

3000 IF PEEK (53256)03 THEN RETURN s REM IF N 

COLLISION THEN RETURN 

3005 SCOREBOMBER=SCOREBOMBER+1: IF SCOREBOMBE 

R=10 THEN 6000: REM SCORE OF BOMBER 

3007 POKE 53249, 250: POKE 53250, XI : REM PLAYER 

1 OUT OF VIEW; PLAYER 2 AT OLD-PLAYER 1-POSI 
TION 
3010 FOR 1=1 TO 30: SOUND 0, V, 8, 14: FOR T=i TO 

10: NEXT Ts V=INT ( (250-180) *RNB (0) *180) : REM E 
X PLOSION 

3020 IF 1=10 THEN POKE 53258,1: REM CHANGE SI 
ZE OF PLAYER 2 

3022 IF 1=20 THEN POKE 53258,3: REM CHANGE SI 
ZE OF PLAYER 2 

3040 NEXT I: POKE 53258,0: POKE 53250,250 
3050 SOUND , , , : GUN=0 : BOMB=0 : GOTO 1 90 : REM 

NO SOUND; NEW ATTACK 
3500 IF PEEK < 53257)01 THEN RETURN : REM IF N 
COLLISION THEN RETURN 
3502 GOBUB 7000 
3505 SC0REGUN=SC0REGUN+1: IF SC0REGUN=10 THEN 

GOTO 6000: REM SCORE 
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3507 POKE 53248, 250: POKE 53251, X: REM PLAYER 
OUT OF VIEW; PLAYER 3 AT OLD-PLAYER 0-POSIT 
ION 

3510 FOR 1=1 TO 30: SOUND 0, V, 8, 14: FOR T=l TO 
10: NEXT Ts V=INT< < 250- 180) *RND<0) *180) s REM E 
X PLOSION 

3520 IF 1=10 THEN POKE 53259,1: REM CHANGE SI 
ZE OF PLAYER 3 

3522 IF 1=20 THEN POKE 53259, 3: REM CHANGE SI 
ZE OF PLAYER 3 

3540 NEXT I : POKE 53259,0: POKE 53251,250 
3550 SOUND 1,0, , : GUN=0 : BOMB=0 : GOTO 1 90 
5000 Y= I NT ( ( 20-80 ) *RND ( ) +80 ) : REM NEW VRT I CA 
L POSITION 

5003 FOR I=PMBASE+512 TO PMBASE+640: POKE 1,0 
:NEXT I: REM CLEAR PLAYER 

5005 RESTORE 5020: FOR I=PMBASE+512+Y TO PMBA 
SE+517+YsREAD A: POKE I, A: NEXT I : REM THIS LOO 
P DRAWS PLAYER 
5020 REM PLAYER IN DATA 
5030 DATA 1,1,3,63,255,126 
5040 RETURN 
5300 STOP 

6000 PRINT "SCORE OF GUN: " ; SCOREGUN: PRINT t 
PRINT "SCORE OF BOMBER: " ; SCOREBOMBERs END 
7000 FOR I=PMBASE+B96 TO PMBASE+ 1024: POKE I, 
OsNEXT I: REM CLEAR PLAYER 3 

7010 RESTORE 7020: FOR I=PMBASE+896+Y TO PMBA 
SE+903+YsREAD A: POKE I, A: NEXT I : REM THIS LOO 
P DRAWS PLAYER 3 
7020 DATA 4,8,2,73,0,42,0,82 
7030 RETURN 
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ROBOT ATTACK 



ROBOT ATTACK is a game which shows the easy use of the 
player-missile graphics. All four players are used. Player thru 2 
are the robots and player 3 is the gun. 

Program Structure: 

Line 100 -180: Writing of the titles. 

Wait until a key is pressed. 

Turn off the cursor. 

GOTO subroutine. Initialize fast vertical 

movement of the player. 

Set the parameters for speed control. 

Initialice the screen. 

Determine RAMTOP and set PM base address. 

Turn on PM functions. 

Erase all players and missiles. 

Set the colors of the robots, (player 0—2) 

Initialice the player 0—2 

Set the color of player 3 

Set horizontal position of player 3 

Initialize player 3 

Store the horizontal and vertical position of 

the missile. 

Store horizontal and vertical position of 

player 0—2. 

GOTO subroutine MOVING. 

Control of the movement of player 3. 

Shoot missile when button is pressed. 

Jump back, (infinite loop) 

Initialize fast vertical movement of the player. 

Subroutine. Moves the player — 2 and the 

missile 3. Collision detection and sound. 

You lost, the robots are invaded. Start for a 

new game. 
You can extend the game. Let the robot shoot and accelerate the 
movement of the gun. 
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Line 190 


-200: 


Line 220 




Line 230 




Line 240 




Line 250 


-270: 


Line 280 




Line 290 




Line310 




Line 320 




Line 330 


-350: 


Line 360 




Line 370 




Line 380 


-400: 


Line410 




Line 420 




Line 430 




Line 440 


-480: 


Line 490 




Line 500 




Line 520 


-680: 


Line 690 


-940: 


Line 950 


-1020 



100 GRAPHICS 
110 CLR 
120 PRINT 
TTACK " 
130 PRINT 
C) 1982" 
140 PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

IF PEEKC 

POKE 764 

GRAPHICS 



150 

160 

170 

ISO 

190 

200 

2 1 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

:NE 

320 

EM 

330 

340 

INT 

+J + 

350 

360 

370 

380 

390 

D D 

400 

4 1 

420 

430 

440 

450 



2+16 
#6: PRINT #6:PRINT #6;" ROBOT A 
#6: PRINT #6: PRINT #6;" COPYRIGHT ( 



#6 
#6 
#6; 
#6 5 
#6 



THEN 190 



POKE 75: 



o 

1 



GOSUB 520sG05UB 610 
SCH1=2:SCH2=3 

'•-i in ii 
: j' 

DIM X (4) 

SETCOLOR 2,0,0 

A=PEEK ( 1 06 ) -8 a POKE 54279 

POKE 559, 46: POKE 53277,3 

RESTORE 350 

FOR I=PMBASE+384 TO PMBA 
XT I: REM EREASE PM 

POKE 704, 216s POKE 705,21 
SET COLOR PM 0-2 

REM SET PLAYER 0-2 

FOR J =5 12 TO 894 STEP V. 
( RND ( ) * 90 ) + 1 s FOR I =PMBA£ 
9+Y : READ A : POKE I ,, A : NE X T 

DATA 24 , 24 , 56 , 63 , 60 , 60 ,60,24,24, 60 

POKE 707,56 

POKE 53251,200 

RESTORE 400:YP=65 

FOR I=PMBASE+S96+YP TO PMBASE+900+YP: REA 
:POKE I, D: NEXT I 

DATA 28,28,124,28,28 

MX=0:MY=0 

X < 1 ) =0 s X < 2) =-20 s X ( 3) =-35 

GOSOB 690 

REM GUN MOVEMENT 

A=STICK<0) 



, A:PMBASE=256#A 
:REM ENABLE PM 

SE+ 1023 s POKE 1,0 

6: POKE 706, 216s R 



IBs RESTORE 350 s Y= 

iSE+J+Y TO PMBASE 
I: NEXT J 
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460 IF ft=13 THEN FOR 1=1 TO SCH2: D=USR (DOWN, 

PMBASE+895+YP) : YF-YP+1:NEXT I : GOTO 490 

470 IF A=14 THEN FOR 1=1 TO SCH2: D=U8R (UP, PM 

BASE+895+YP) : YP=YP-1 : NEXT I : GOTO 490 

480 FOR 1=1 TO 15: NEXT I 

490 IF STRIG(0)=0 THEN IF MX=0 THEN MX=200:M 

Y=YP s POKE PMBASE+386+MY , 255 

500 GOTO 430 

510 STOP 

520 DIM UPCQDE$(22> : UP=ADR (UPCDDE*) 

530 RESTORE 580 

540 FOR I=UP TO UP+20 

550 READ BYTEs POKE I , BYTE 

560 NEXT I: RETURN 

570 REM 

580 DATA 104, 104, 133,204, 104, 133,203 

590 DATA 160,1,177,203,136,145,203 

600 DATA 200 , 200 , 1 92 , 7 , 208 ,245,96 

610 DIM D0WNC0DE*<22) : DGWN=ADR (DOWNCODE*) 

620 RESTORE 660 

630 FOR I=DOWN TO DOWN+20 

640 READ BYTE: POKE I , BYTE 

650 NEXT I: RESTORE s RETURN 

660 DATA 1 04 , 1 04 , 1 33 , 204 , 1 04 ,133, 203 

670 DATA 1 60 ,6,177, 203 , 200 ,145, 203 

680 DATA 136,136,192,255,208,245,96 

690 FOR J=l TO SCH1 

700 FOR 1=1 TO 3 

710 POKE 53278, 17: REM COLLISION CLEAR 

720 SOUND 1, 12,8,9 

730 X (I)=X (I>+2 

740 IF X(I)<0 THEN 770 

750 IF X(I)>200 THEN 950 

760 POKE 53247+1, X (I) 

770 SOUND 1,0,0,0 

780 IF MX=0 THEN 810 

790 IF MX<40 THEN 880 

800 MX=MX-2:P0KE 53255, MX 

810 D=PEEK (53259) 

820 IF D=0 OR D=8 THEN 920 

830 IF D=4 THEN D=3 

840 SOUND , 60 ,10,8s SOUND 1 , 70 ,10,8: SOUND 2 , 

10,8,2 

40 



850 

860 

870 

-1 

880 

890 

900 

910 



920 

930 

940 

950 



X (D)=0 
PUNKT=PUNKT+; 



IF INK PUNKT/28 ) =PUNKT/2 


8 


THEN SCH2- 


=SCH2 


MX=0:P0KE 53255, MX 
POKE PMBASE+386+MY,0 

POSITION 10,0:7 "SCORE: 
SOUND 0,0, 0,0: SOUND 1,0, 


1 

0, 


';PUNKT; 
,0: SOUND 2. 


, , , 



NEXT I 
NEXT J 
RETURN 
FOR T=l 



TO 10: SOUND 0, 6, 13, 8: SOUND 1,0,0 
TO 18: NEXT X : SOUND O, 0, O, O: SOUND 



960 FOR X=l 

1,11, 13,8:NEXT T 
970 SOUND 0,0,0,0 

980 FOR Z=30 TO 200: SOUND 2, Z , 10, 8: NEXT 
990 FOR S=l TO 6: FOR P=60 TO 40 STEP -2 
D 0,P,10,8:F0R X = l TO 10:NEXT X 
1000 NEXT PsFOR F-40 TO 60 STEP 2: SOUND 
10, 8: FOR X=l TO 10: NEXT XsNEXT P:NEXT S 



Z 
SOUN 

0,P, 



1010 


SOUND 0,0,0,0 


1 020 


FOR 1=1 TO 8: 


1 00 





8: POKE 53247+1,0: NEXT I : GOTO 
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BALL 



BALL 

This game demonstrates the use of player-missile graphics asyou 
may need if you want to program games like Tennis, Squash, 
Wallbreaker etc. A ball is moving in a playfield that you can 
try to catch. If the ball bumps into your racket, you will get 
points. 

Lines 10—99 initiate the playfield, the player and the missile. 
Line 100 checks if the joystick is pressed. 
Line 1 19 always clears the collision register. 
Line 120 clears the last position of the missile. 
Lines 121 +122 set the vectors of the missile (the movement of 
the missile is the result of X-vector and Y-vector. In case of a 
collision with the wall only one vector will be changed). 
Line 130 draws the new missile position. 

Line 140: In case of collision with your racket the score is in- 
creased by one. 

This program demonstrates only the basic programming 

techniques, you need to create a game with a ball being reflected 

at a wall. 

Try to program "Tennis", "Squash", or "Wallbreaker". 

Make the game quicker by using greater steps in the movement, 

or even machine language subroutines. 

iO GRAPHICS SsSETCOLOR 2,0,0 

15 COLOR l:PLOT 0, O: DRAWTO 79, 0: DRAWTO 79,39 

:DRAWTO 0,39: DRAWTO 0,0: REM PLAYFIELD 

20 POKE 559, 46: REM SINGLE LINE RES. 

40 POKE 704,188s REM PLAYER: PINK 

50 I=PEEK(106)-8:REM P/M ADRESS 

60 POKE 54279, I: REM STORE ADRESS 

70 POKE 53277, 3: REM ENABLE P/M 

75 POKE 53256,1: REM PLAYER TWICE NORMAL SIZE 
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80 PMBASE= 1*256 

85 FOR I=PMBA5E+512 TO PMBASE+640s POKE I,OgN 

EXT 1 2 REM CLEAR PLAYER 

90 POKE PMBASE+5 12+85, 60s POKE PMBASE+513+85, 

60s REM DRAW PLAYER 

92 FOR I=PMBASE+3B4 TO PMBABE+512: POKE I,OsM 

EXT Is REM CLEAR MISSILE 

94 POKE PMBASE+384,3:REM DRAW MISSILE 

98 YV=INT< 1*RND<0) +1) s XV=INT < -4*RND <0) +2) s RE 
M ST ART VECTORS FOR MISSILE 

99 YM=19: XM=120sREM MISSILE TOP OF FIELD 

1 00 ST=ST I CK (O) : X = X +2# ( < BT=7 ) + ( X < 1 95 ) ) s X = X -2 
*< (ST=11)+(X>45) ) :REM JOYSTICK?? 

110 POKE 53248, X 

119 POKE 53278,0s REM COLLISION CLEAR 

120 POKE PMBASE+384+YMl,0:REM CLEAR LAST POS 
. OF MISSILE 

121 XM=XM+XVs YM1=YM: YM=YM+YVs IF XM<50 OR XM> 
205 THEN XV=-XVJ SOUND 0, 20, 10, 15s SOUND 0,0,0 
,0s SOTO 120 

122 IF YM<19 OR YM>92 THEN YV=-YVs SOUND 0,20 
,10,15s SOUND , , , : GOTO 1 20 

130 POKE PMBASE+384+YM,3sP0KE 53252, XMs REM D 

RAW NEW MISSILE POSITION 

140 IF PEEK (53256)00 THEN P=P+1: PRINT "3-SCO 

RE ";PsSOTO 92s REM --IF COLLISION THEN PRINT 

SCORE 

200 GOTO 100s REM AGAIN AND AGAIN 
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SMART 



SMART 

SMART is a game in which the computer stores a combination of 
6 different colors in 4 places. Each color may appear more than 
one time. You have to find out the correct colors and combinations 
in less than 10 trials. After each trial, the computer tells you, 
how many colors are in the right place (black dots) and how many 
colors are present, but in the wrong place (red dots). Using this 
information, you must correct this cast. 

The program. 

The program runs under ATARI BASIC or CP/A Basic. It uses 
graphic mode 11 with the video controller GTIA (an upgraded 
CTIA). With this chip it is possible to show 16 different colors in 
BASIC. 

Structure of the program: 

Line 100 - 141 : Title and Copyright 

Line 145: Wait until a key is pressed. Reset of the input 

buffer, otherwise the character is part of the next 

INPUT-instruction. 
Line 200-225: Drawing of the playfield using the XIO FILL 

instruction. 
Line 230-240: Draw details in the playfield 
Line 350—364: The RND-function is used for creating 4 different 

colors. The numbers of the colors are stored in 

the array C (1-4) 
Line 400— 450: Read the joystick, which controls the color by 

vertical movement. Pressing the button sets 

current color to cursor position. 
Line 600—628: The computer checks how many colors can be 

marked with black (SCH) or red (WEI). 
Line 640—662: Show the result to the player. 
Line 670 - 700 
Line 710 -730 
Line 800 -810 
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"You lost". Show the right colors. 
"New game?" 
"You won" 



Line 1000—1030: Subroutine, mark empty cursor position 
with predefined color. Move the cursor to 
next position. 

Line 2000:2050: Change the color. 

Line 3000— 3050: Look for the coordinates of the next free 
cursor position (# PL) of the trial (# VER). 

Line 4000—4040: Draw the result of one trial. 

Note: 

Colors may be different on different ATARI computers (PAL- 

version in Europe, NTSC in the US etc.). 

90 CLR sREM CLEAR MEMORY 

ICO GRAPHICS 2+16 

110 PRINT #6 SPRINT #6;" SMART "sPRTN 

T #6: PR I NT #6 

120 PRINT #6; "COPYRIGHT (C) 1982 BY":; 

130 PRINT #6s." ELC0MP PUBLISHING, INC. "; 

135 PRINT #65" 53 REDRQCK LANE "■ 

140 PRINT #6;" POMONA, CA 91766 "5 

145 REM KEY PRESSED ? 

150 DU=PEEK(764) : IF DU-255 THEN 145 

160 POKE 764, 255s REM CLEAR INPUT 

200 GRAPHICS 1 1 : REM TURN ON GRAPHICS 11 

210 COLOR Is REM DRAW IN BRIGHT ORANGE (GOLD) 

215 REM DRAW PLAYING FIELD IN COLOR 1 

220 PLOT 38 ,156s DRAWTO 38 ,, s DRAWTO , s POS I T 

ION 0, 156s POKE 765, 1 

225 XIO 18, #6, 0, 0, "5s " 

230 REM DRAW HIDDEN FIELD 

232 COLOR OsREM DRAW IN BLACK 

233 FOR 1=2 TO 8 STEP 2 
235 PLOT 1,1 s DRAWTO 26,1 
240 NEXT I 

250 REM DRAW HOLES 

255 COLOR OsREM DRAW IN BLACK 

260 FOR 1=20 TO 130 STEP 12 

270 FOR J=5 TO 20 STEP 4 

280 FOR K=0 TO 3 

282 PLOT J, I+K 

284 NEXT K 

286 NEXT J 
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288 NEXT I 

289 COLOR 10: REM DRAW IN BLUE GREEN 

290 FOR 1=19 TO 131 STEP 12 
292 FOR J=0 TO 4 STEP 4 

294 PLOT 30, I +J. PLOT 34,1+JsPLOT 30, I+J+l :PL 

OT 34, I+J+l 

296 NEXT J 

298 NEXT I 

300 REM DRAW ALL EXISTING COLORS 

310 FOR 1=10 TO 120 STEP 20 

312 READ F 

314 FOR J=l TO 10 

316 COLOR F 

318 PLOT 50,1+JsPLOT 51,I+J 

320 NEXT J 

322 NEXT I 

340 DATA 3,5,7,10,13,14 

350 REM CREATE COMBINATION 

351 DIM A(4) ,B(4) ,C(I) 

352 FOR 1=1 TO 4 
354 X=INT(RND(0) *6) 
356 RESTORE 340 
358 FOR J=l TO X 

360 READ Y 

361 C(I)=Y 

362 NEXT J 
364 NEXT I 

400 REM LOOK FOR COMBINATION, USE JOYSTICK #1 

405 PL=1: VER=1:FA=1 

410 IF FLAG=0 THEN COLOR lsGOSUB 1000:FLAG=1 

sGOTO 430 

420 COLOR 0: GOSUB 1000:FLAG=0 

430 IF STICK (O) =13 THEM FA=FA+1 : GOSUB 2000 

440 IF STICK (O) =14 THEN FA=FA-1 : GOSUB 2000 

450 IF STRIG(0)<>0 THEN 410 

500 REM PLACE COLOR 

510 GOSUB 2000 

515 B(PL)=X 

520 GOSUB 3000 

530 FOR I =--4 TO 4 

532 PLOT X~l, Y+IsPLOT X,Y+I;PLOT X + 1,Y+I 

534 NEXT I 

540 IF PL=4 THEN 600 
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550 PL=PL+1 

560 GOTO 410s REM LOOK FOR NEXT COMBINATION 

600 REM COMBINATION RIGHT ? 

602 FOR 1=1 TO 4 

604 A(I)=C<I) 
606 NEXT I 

605 SCH=0:WEI=0 
610 FOR 1=1 TO 4 

612 IF B(I)=A(I) THEN SCH=SCH+1 : B ( I ) =100: A ( I 

) =200 

614 NEXT I 

620 FOR 1=1 TO 4 

622 FOR J=l TO 4 

624 IF A(I)=B(J> THEN WEI=WEI+1 : B < J ) =100: A ( I 

) =200 

626 NEXT J 

628 NEXT I 

640 IF SCH=4 THEN BOO 

650 AN=1 

652 IF SCHOO THEN SCH=SCH-1 : COLOR OsGOSUB 4 

000: GOTO 652 

654 IF WEIOO THEN WEI=WEI-1 : COLOR 4:G0SUB 4 

000: GOTO 654 

660 VER=VER+1 

662 IF VER<11 THEN PL=lsGOTO 410: REM NEXT TR 

IAL 

670 FOR 1=10 TO 200: SOUND 1 , I , 10, 7: NEXT I : FO 

R 1=1 TO 200: NEXT I s SOUND 1,0,0,0 

680 RESTORE 3015 

682 FOR 1=1 TO 4 

684 READ X 

686 COLOR C(I) 

688 FOR K=0 TO 10 

690 PLOT X-1.,1+K:PL0T X,1+K:PL0T X + l,l+K 

692 NEXT K 

694 NEXT I 

698 FOR 1=10 TO 200: SOUND 1 , I , 10, 7: NEXT I : FO 

R 1 = 1 TO 200 : NE X T I : SOUND 1,0, O , O 

700 FOR 1=1 TO 500: NEXT I 

710 ? "J} ONE MORE (1/0) "; 

715 INPUT DU 

720 IF DU=0 THEN ? " > " ; : END 

730 GOTO 90 
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800 ? "YOU'RE A CHAMPION !" 

810 BOTO 710 

1000 REM DRAW EMPTY HOLE 

1010 GO SUB 3000 

1020 FOR K=0 TO 3 

1022 PLOT X,Y+K 

1024 NEXT K 

1030 RETURN 

2000 IF FA>6 THEN FA=1 

2010 IF FA<1 THEN FA=6 

2015 RESTORE 340 

2020 FOR 1=1 TO FA 

2022 READ X 

2024 NEXT I 

2026 COLOR X 

2030 FOR 1=1 TO 10 

2032 PLOT 60 ,1+10: PLOT 61,1 + 10 

2034 NEXT I 

2040 SOUND 1 , 1 00 ,12,7 

2042 FOR 1=1 TO 50: NEXT I 

2044 SOUND 1,0,0,0 

2050 RETURN 

3000 REM CALCULATE COORDINATES FOR NEXT FREE 

PLACE 
3010 RESTORE 3015 
3015 DATA 5,9, 13, 17 
3020 FOR 1=1 TO PL 
3022 READ X 
3024 NEXT I 
3030 Y=8 

3040 FOR 1=1 TO VER 
3042 Y=Y+12 
3044 NEXT I 
3050 RETURN 

4000 REM CALCULATE AMD DISPLAY RESULT 
4010 RESTORE 4015 

4015 DATA 30, 19,34, 19,30,23., 34,23 
4020 FOR 1=1 TO AM 
4022 READ X,Y 
4024 NEXT I 
4026 AN=AN+1 

4030 PLOT X , Y+ < VER- 1 ) * 1 2 
4032 PLOT X,Y+(VER-1) *12+1 
4040 RETURN 
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BARRIER 



BARRIER is a game for one or two players. It is similar to 
"surround". The object is to force your opponent (the other 
player or the computer) to stop. The players are moving squares 
that leave behind a wall that neither player can go through. In 
addition, the computer places 2 or more barriers on the playing 
field. 

Three graphics modes are available: 3, 5, or 7. In mode three, the 
graphics are coarse, but the game is very fast. In mode 5 the 
graphics are finer and the game slower. In mode 7 the graphics are 
very fine and the game rather slow. 



5 k=3:uu=i:hin=2:kukuck=i7 

10 dim a$( 12) ,b$<1z) ,c$(1z) ,d*(1z) 

12 GOTO 8999 

15 pop :poke 752 ro: sound OrO,o,o: sound 1,0,0 
,0: sound 2, 0,0,0: sound 3 , , , : goto kukuck 
17 n=o:m=o 
20 graphics o:for w=o to 79:? "";:next m:? " 

* > > > B A R R I E R < < < * " ! 
23 FOR W = TO 79:? "" J : NEXT M 
25 SEL=30:G0T0 G000 

30 sel=4o:goto sogo 

40 SEL=50:G0T0 G030 

50 IF UU=1 THEN SEL=GO:GOTO G090 

60 SEL= 30000 

65 IF UU=1 THEN G=5500 : EE=5000 : Z=300 : S=3000 

BG IF UUOl THEN S = 4000 : EE=410 

70 a=o:b=o:c=o:d=o:aa=o:bb=o:cc=o:dd=o:gh=o: 
hj=xyz:abc=o 

80 IF K=7 THEN XYZ=K+ 10: GG= 159 : WW=79 I R=76 : Y= 

8z:t=4o:goto 100 

90 if k=3 then xyz=g : r= 1 8 : t= 1 : y=20 : gq=39 : ww 

=is: goto ioo 

95 xyz=8:k=5:r=3b:t=zo:y=4z:qg=79:ww=39 
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ioo graphics k: color 3:setcolor 2,0,0 
120 plot OfOidrawto qq,o:drawto qq , ww : drawto 
o,ww: drawto o,o 

140 SETCOLOR 2,1,13 

200 SETCOLOR 4,9,4 

220 SETCOLOR 1,0,0 

225 SETCOLOR 0, 10,8 

230 COLOR 3:SETC0L0R 2,1,13 

240 COLOR 0: SETCOLOR 4,9,4 

245 GOSUB 9100 

250 COLOR 21 PLOT R,T 

255 COLOR 1 IPLOT Y,T 

257 FOR JJ = 1 TO 50 : NEXT J J 

2G0 BALLA=2G5:G0T0 30005 

2B5 G=5500 

270 W=1100 

2B0 X=1150 

290 J=15 

300 HH=15:C0L0R 2 

320 GOTO 980 

330 LOCATE AA+R,BB+T,YY 

335 IF YYOO THEN GOTO S 

340 COLOR 2 ."PLOT AA+R,BB+T 

400 COLOR 1 

405 GOTO EE 

410 IF J015 THEN 1010 

420 GOTO 1000 

440 LOCATE CC+Y,DD+T,YY 

4G0 IF YYOO THEN GOTO 2000 

470 COLOR 1IPL0T CC+Y,DD+T 

480 FOR QW=1 TO 1 ." LLL=485 : GOTO 490 I NEXT QW 

485 GOTO 620 

490 HH=15:j=15 

520 IF STICK(0)=15 AND STICK(1)=15 THEN 600 

540 HH=STICK(0) :Z=300 

560 J=STICK(1) 

600 GOTO LLL 

620 IF HH=15 THEN 300 

G40 GOTO 9B2 

980 IF STICK (0) =15 AND HH=15 THEN GOTO W 

982 IF STICK(0)=14 OR HH=14 THEN W=1100:G0T0 

W 
984 IF STICK(0)=7 OR HH=7 THEN W=1120:G0T0 W 
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986 

W 
988 

W 
990 
1000 
1010 

X 
1030 
1050 

X 
1070 

X 
1080 
1 1 00 
1110 
1120 
1130 
1 1 40 
1150 
1160 
1170 
2000 
2020 
2500 
2520 
2600 
3000 
3010 
3020 
3040 
4000 
4010 
4020 
4040 
5000 
5020 
5040 
5060 
5080 
5100 
5105 
5110 

o.e: 



IF STICK(0)=13 OR HH=13 THEN W=1140:G0T0 

IF STICK(0) = 11 OR HH=11 THEN W=1160:CiOTD 

GOTO W 
IF STICK(1)=15 THEN GOTO X 
IF STICK<1)=14 OR J = 14 THEN X=1110:G0T0 

IF STICK<1)=7 OR J=7 THEN X=1130:G0T0 X 
IF STICK(1)=13 OR J=13 THEN X=1150:G0T0 

IF STICK(1)=11 OR J=ll THEN X=1170:G0T0 

GOTO X 

bb=bb-1 :goto 330 
dd=dd-1 :goto 440 
aa=aa+i:goto 330 
cc=cc+i :goto 440 
bb=bb+i:goto 330 
dd=dd+i:goto 440 
aa=aa-i:goto 330 
cc=cc-i:goto 440 

? A$J" wins. " 
M = M+1 

? "score is " ;m;" : ";n 

GOTO 30000 

GOTO 2560 

? "The computer wins" 

FOR 0=1 TO 500: NEXT Q 

N = N+1 

GOTO 2500 

? C$;" wins" 

FOR 0=1 TO 500INEXT Q 

N = N+1 

GOTO 2500 

z=62o: color i:a=c:b=d:f=a:h=b:i=o:e=o 
gosub g: locate a+y,b+t,yy:o=g 
if yyoo then 5140 
c=a:d=b:e=i : gosub g 

LOCATE A+YrB+T,YY 

IF YYOO THEM LLL = 5140I GOTO 490 
ABC=ABC+1 

GH=GH+i:iF GH=HJ THEN GH=0 I ABC=ABC#1 . 2+ 
HJ=INT(3*K+ABC*K*RND(0) ) IGOTO 5140 
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z 
l: 


PLOT 


A+Y 


,B+ 


V I 


IPLOT 


A+Y 


,B+ 



5120 plot c+y,d+t:goto z 

5140 if g = 5500 or (3=5520 then 00= int ( rnd ( ) * 

2+3) 

51B0 IF G = 5540 OR = 55(30 THEN 00= INK RND< ) * 

2+1 ) 

5180 a=f:b=h:on 00 gosub 5500,5520,5540,5560 

5200 locate a + y , b + t , yy : if yyoo then lll=530 

o:goto 490 

5220 c=a:d=b: gosub g: locate a+y,b+t,yy:l=g 

5240 if yyoo then i = 1 i lll = 5300: goto 490 

5260 plot c+y,d+t:goto z 

5300 a=f:b=h:on oo gosub 5520,5500,5500,5540 

5320 locate a+y , b+t , yy ! if yyoo then lll = 536 

OIGOTO 490 

5340 plot a+y,b+t:c=a:d=b:goto 
5380 if 1=1 then a=f : b=h : gosub 
t:c=a:d=b:goto z 
5400 if e=l then a = f \ b=h : gosub 
t:c=a:d=b:goto z 

5420 GOTO 2000 

5500 b=b-i:g=55oo: return 
5520 b=b+i :g=552o: return 

5540 A=A-1 :G=5540:RETURN 
5560 A=A+1 :G=5560: RETURN 
6000 ? "araphic mode 3,5 or 7 < " ; K J " > " ', '. TRA 

p eoio: input k:goto sel 
6010 ? ;k:goto sel 

6030 ? "number of players " 

6035 ? "1 or 2 ("JUU;" ) ""TRAP 6040 : INPUT U 

u:goto 7000 

6040 ? uu:goto sel 

6060 ? "number of barriers ("?HIN»") ";:TRAP 

eo7o: input hin:goto sel 
6070 ? hin:goto sel 

6090 ? "enter name of 1st player (";A$;"> "', 
IINPUT AS.'IF A$="" THEN 6110 
6100 B*=A$:GOTO 6120 

6110 a$=b$:? a$ 

6120 if uu=2 then 6150 

6130 GOTO SEL 

6150 ? "enter name of 2nd player ("JC*?") "J 

: INPUT C$:iF C$="" THEN 6170 

6160 D*=C$:GOTO SEL 
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6170 ? d$:c$=d*:goto sel 
7000 if uu=2 then 6090 

7010 GOTO SEL 

8939 GRAPHICS 2 

9000 POKE 764, 255: FOR W = TO 831? #6? u #" ', IHE 

XT WIPOKE 752, 1 

9010 ? #6," BARRIER " ", '. FOR W = TO 841? #6 , 

"*"i :next w 

9020 FOR WAS = TO 15 

9030 FOR W0L=15 TO STEP -1 

9032 C0L=C0L+1 

9035 SOUND , C0L*1 . 1 , 1 4 , 10 : SOUND l,ABS(C0L-2 

70 ) , 1 4 , 1 

9037 SOUND 2 , RND ( ) *WAS+5#4 , 1 , 1 I SOUND 3 , CO 

L*WAS,10, 10 

9040 setcolor , was , wol : setcolor 4,w0l,was 
9045 position 5,9:? #6 , int < col ) ; " ",was,":" 
;wol," 

9047 GOSUB 9447 

9049 FOR LOCK=0 TO 2 ."NEXT LOCK 

9050 NEXT WOL : NEXT WAS 
9055 GOTO 9300 

9060 COL=RND(0)*COL 

9070 GOTO 9020 

9100 IF HIN=0 THEN 9120 

9110 COLOR 3:F0R W=l TO HIN:PLOT RND(0)*(QQ- 

4 ) +2 , RND ( ) # ( WW-4 ) +2 : DRAWTO RND ( ) * ( QQ-4 ) +2 , 

RND(0)*(WW-4)+2:NEXT W 

9120 RETURN 

9300 FOR JM=0 TO 14 STEP 1.5:F0R DER = TO 6: 

SOUND Or 150+JM#4,6,ABS( JM-14) 

9305 GOSUB 9447 

9310 sound 3, 100+jm*5,4,abs( jm-14) 

9320 sound 1 , 230+ jm*2 , 10 , abs ( jm-1 4 ) 

9330 sound 2 , rnd( ) #220 , 4 , abs ( jm-14 ) 

9335 setcolor , rnd ( ) *15 , der : setcolor 4 , der 

,rnd<o)*15:next der 

9340 next jmigoto 9060 

9447 if peek (764)0255 then 15 

9448 if strid(0)=0 or strig(1)=0 then 15 

ga^Q RETURN 

25620 FOR W = TO 2 ."SOUND , 58, 1 4 , 14 : NEXT W."S 

OUND 0,0,0,0: RETURN 
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30000 BALLA=65 

30005 ? "wait in a. . . " 

30010 POKE 764,255 

30030 G=PEEK(764> 

30040 IF STRIG(0)=0 OR STRIG<1)=0 THEN GOTO 

BALLA 

30045 IF G=255 THEN 30030 

30050 GOBUB 25G20:iF G=33 THEN G=OOR 

30100 POKE 764,255:? :? :MOR=G 

30200 IF G=61 THEN 6000 

30210 IF G=23 THEN 6030 

30220 IF G=35 THEN 6090 

30230 IF G=57 THEN 6060 

30240 IF G=50 THEN M=0:N=0:G0T0 2500 

30250 IF G = 21 THEN KUKUCK=65 : GOTO 12 

30260 IF G=42 THEN 20 

30270 IF G = 40 THEN 17 

31000 GOTO 30010 
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KNIGHT-BATTLE 



KNIGHT-BATTLE is a game for two players. One is the castle- 
lord, the other is the fiendish knight. Both players try to destroy 
the other by firing on him with artillery shells. You must destroy 
your opponent, before he destroys you. To fire, you input the 
angle (0—90°) and the amount of powder (1—15 bags). Watch the 
wind, as it will affect the trajectory of your shots. 
Good luck! 

10 DIM BURG$(15) ,RIT$(15) ,C$(15) ,Z$(3) ,FR<3) 

20 GRAPHICS 2+lB:SETC0L0R 4,3,0 

30 PRINT #G 

40 PRINT #B 

50 PRINT #S 

SO PRINT #S 

70 PRINT #6?" KNIGHT-BATTLE" 

80 IF PEEK (7S4) =255 THEN 80 

90 POKE 764,255 

95 GQSUB 9000 

100 GRAPHICS 7 

102 REM DRAWING OF HILL 

105 REM 

no color i:gosub booo:b=79 

120 PLOT 0,79."DRAWT0 159,79: PLOT 0,78:DRAWT0 

159,78 

130 FOR 1=50 TO 90 

140 C=INT(RND(0)*7) IIF C=4 THEN C=3 

142 IF C=5 OR C=S THEN C=0 

143 IF B<21 THEN C=0 
145 B=B-C 

150 PLOT I,B:DRAWTO I, 79: NEXT I 

155 FOR = 70 TO 79."PL0T 90,0:DRAWT0 159,0:NEX 

T 
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STEP -1 

4 THEN C = 



ISO A=79:F0R 1=130 TO 90 

170 C=INT<RND<0)*6) : IF C* 

172 IF C = 5 THEN C = 3 

175 IF B>=A-2 THEN 190 

180 A = A~C 

190 PLOT I, A : DRAWTO 1,79 

200 NEXT 1 

210 REM DRAWING OF CASTLE 

220 COLOR 3 

225 REM BODY OF CASTLE 

230 PLOT 155,69:DRAWT0 155,55 

OSITION 127,G9:P0KE 765,31X10 

240 N 1 = 1 27 I Ml =55 : N2 = 1 33 : GOSUB 

250 N1=149:N2=155:G0SUB 2S0 

255 GOTO 270 

2G0 PLOT N2,Mi:DRAWT0 N2 , Ml- 12 : DRAWTO 

2:position ni,mi:poke 7G5,3:xio is,#g 



DRAWTO 127,55: 
18, #6, 0,0, "s: 1 
260 



N1,M1-1 

0,0, "s: 



265 
270 
280 
290 
200 

2:drawto 

310 PLOT 

320 

330 

335 



337 

340 



RETURN 

REM WINDOWS OF CASTLE 

S1=133:C0L0R 1 

FOR 1=1 TO 4 

PLOT S1,63:DRAWT0 Si , 63-2 : DRAWTO Sl-2,63 

s1-2,g3:drawt0 s1,g3 

si-i,b3-i:si=si+b:next i 
rem roofs of castle 
color i :hi=i52:r=i :gosub 340 

COLOR 2 : IM 1 = 1 27 : N2= 1 33 : H 1 = 1 30 : R = 2 : GOSUB 
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DRAWTO HI ,M 
XI 18, #6,0 



GOTO 3G0 

plot n2,m1-12:drawt0 h1,m1-17; 
i-17:position ni ,mi-12:poke 765, r: 
, , " s : " 

350 RETURN 

3g0 rem points on castle 

370 color 3:f0r 1=132 to 149 step 4 : plot 1,54 

:plot i+i,54:next i 

380 rem drawing of the opponent 

385 COLOR 2 

390 P0=INT(RND(0)*39+5) 

400 PLOT P0+6,77:DRAWT0 PO+3 , 77-5 : DRAWTO PO+3 

,77-5:P0SITI0N P0,77!P0KE 765,2:XI0 18, #6, 0,0 

, " s : " 
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405 WD=INT<RND(0)#30+1> 
410 REM BURG*." INPUT 
415 C9 = 0.'G0SUB 1040 

417 print "castle-lord " ;burg*;": "?:GOSUB 10 

00 

420 H4=130IH5=42 

425 REM 

427 if c9=l then h4=p0+3 : h5=8 : gosub 1040iprin 
t "knight ";rit*;": ";:gosub iooo 

430 T = 

434 REM CALCULATION : BURG* 

435 GRAPHICS 7+32:G0SUB GOOO.'DEG :T = 
43G IF C9=l THEN 450 

440 WINK=!80-WINK 

450 '.' = PUL«.' + 2+WW 

4S0 X=V*T*COS(WINK) 

470 Y= V*T*SIN ( WINK )-0. 5*9. 8*T"2 

472 IF Yl<2 THEN 480 

475 COLOR O.'PLOT X1,Y1 

480 X 1 =H4+V*X : Y 1 =79- ( H5+V*Y ) 

481 IF XI > 159 OR XK1 OR Yl>79 THEN 520 

482 IF Yl<2 THEN 500 

485 FOR 1 = TO 2:L0CATE XI , Yl -I , FDI FR ( I ) =FD I I 
F FR(I)=2 AND XI > 110 THEN 3000 : REM SELF DESTR 
UCTION 

486 IF FR(I)=2 THEN 40001 REM OPPONENT DESTROY 
ED 

487 NEXT IIIF FR(0)=3 OR FR ( ) = 1 THEN GOO 
490 COLOR 2 ."PLOT XI, Yl.' SOUND 0,Y1,8,9 
500 T=T+0.05:G0T0 480 

520 x=o:y=o:xi=o:yi=o 

530 IF C9=0 THEN C9=i:G0T0 425 

540 GOTO 410 

GOO DATA irlrliO/-l»Oi-lil»O»0rZrOf2i2iZfl.2f 

-1 ,-1,-1 

G05 COLOR 0: SOUND , , , : SOUND 1,160,0,15 

610 FOR Tl = l TO 10 1 READ Zi, 221 PLOT X1+Z1,Y1+Z 

2: PLOT X1+Z2,Y1+Z1 :next ti: restore 

620 for ei=i to 200 : next bi: sound i,o,o,o:got 

520 

1000 REM BURG*: INPUT OF ANGLE 

1005 TRAP 1005: PRINT "ENTER THE ANGLE "?:iNPU 

T WINK 
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1010 rem burgs: input of powder 

1020 trap 1020: print "enter powder "iz input p 

ulviif pul'kl or pulvm5 then 1020 

1030 RETURN 

1040 SOUND 0»OrOrO:REM WIND 
1050 FF=INT(RND<0>*2+1 ) 
1055 NN=INT<RND<0)*2+1> :HH=RND<0)#7 
105B IF NN=1 THEN WD=WD+HH : GOTO 10G0 
1057 WD=WD-HH:iF ABS(WD)>GO THEN 1050 
10G0 WD=ABS(WD) :WD=INT(WD) :GF=ABS(WD) :iF FF=1 
THEN PRINT "> WIND : < " J GF ' " " : G 

OTO 1080 

1070 print "> wind: > " ' gf ; " " :w 

D = -WD 

1080 IF C9=l THEN WD=-WD 

1100 WW=WD/50:S0UND 3 , 30 , 8 , ABS < WD ) /8 : RETURN 

3000 I =2: NEXT I : GOSUB 15000: REM DESTROY CASTL 

E 

3010 GRAPHICS 7+16+32 : GOSUB B000."F0R 1 = 1 TO 2 

S.'SETCOLOR 2,3r 14:SETC0L0R 4, 7, O: GOSUB 7000 

3020 C7=RND(0)*G+127 

3025 C5=RND(0)#B+127 

3030 C8=RND(0)*15+55-17 

3035 CG=RND(0)#15+55-17:SETCQL0R 4,3,2 

3040 color o:plot C7,C8:PL0T c5,cs:setcolor 2 
,3,o:gosub 7000: next i 

3100 GOSUB 7040 

3500 FOR 1=55-17 TO 55-17+12 

3510 FOR Pl=127 TO 127+S 

3520 COLOR OIPLOT PI, I : NEXT Pi: NEXT I 

3530 FOR 1=1 TO 200 : C7=RND ( ) * ( Dl +17 ) + 127 : Dl = 

di+o.og:cb=rnd<o)*(di+3)+55: plot c7,cb:next i 
3540 gosub 7050 : for 1=127 to 159: plot 127,601 
drawto i, 37: next i 

3550 for 1=127 to 148: plot 1 27 , 85 : drawto 1,54 
:next i : gosub 15ooo:gosub gooo 

35G0 FOR 1 = 1 TO 500 : NEXT I GRAPHICS 0:iF C9=l 

THEN 3610 
3565 GOSUB 15000: GOSUB 1 6000 : PRINT " 

BRAOO" : GOSUB 8000 
3570 PRINT ""JBURG*;", YOU'RE A FINE LORD !" 
3580 PRINT "YOU HAVE BLASTED YOURSELF AND THE 

" J I NT ( RND ( ) * 1 000+ 1 00 ) 
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3590 PRINT "RESIDENTS OF YOUR CASTLE" 

3S00 GOTO 10000 

3G10 GOBUB 15000 ."GOSUB 1 GOOO! GOSUB 8000 I PR I NT 

"BRAVO ";rit$;" !YOU have blasted the castle 

AND" 

3g20 print int(rnd (0) #1000+100) ; " residents." 

:gosub i 5000 : goto ioooo 

4000 I =2: NEXT I : GRAPHICS 7+ig+32:gosub gooo 

4005 FDR 1=1 TO 25:SETC0L0R 4,7,0 

4010 C7=RND(0) *7+P0 : SETCOLOR 4,3,2 

4020 C8=RND(0)*5+72:G0SUB 7000 

4030 PLOT C7,C8!NEXT II GOSUB 7050 

4031 COLOR OIFOR 1=0 TO SIPLOT PO , 72+ I : DRAWTO 
P0+7,72+i:NEXT i:for UG=1 to 200 : next ugigos 

ub 15ooo:gosub gooo 

4040 FOR 1 = 1 TO 500 1 NEXT I I GRAPHICS 0:iF C9=l 

THEN 4090 
4050 GOSUB 1500O:G0SUB 1 GOOO : PR I NT " 

BRAVO ! " : GOSUB 8000 
40G0 PRINT "LORD " ;BURG$; H YOU HAVE DESTROYED 

II 

4070 PRINT "YOUR OPPONENT ! CONGRATULATIONS ! 

"IGOTO 10000 

4090 GOSUB 15000: GOSUB 1 GOOO! GOSUB 8000 : PR I NT 

BRAVO!!!" 
4095 PRINT "KNIGHT ";RIT$; M YOU HAVE DESTROYE 
D YOUR" 
4100 PRINT "OWN CAMP ! NO ONE SURVIVED. '* IGOTO 

10000 
GOOO SETCOLOR 4 , 9 , 1 1 I SETCOLOR , 15 , : SETCOLOR 

2, 12,4:SETC0L0R 1 , 1 , 1 4 \ RETURN 
7000 SOUND 0,180,0,8 

7010 FOR B2=0 TO SISOUND 1 , B2 , 14 , 8 : NEXT B2 
7020 SOUND 1 ,0,0,0 I RETURN 
7040 ZZ=8 

7045 SOUND 1 , 170 , 1G , ZZ : SOUND 2 , 200 ,2 , ZZ : RETUR 
N 
7050 zz=is:gosub 7045:S0UND 3,145,8,ZZ:RETURN 

8000 FOR 1 = 150 TO 81 STEP - 1 : SOUND 0,I,10,0."N 

EXT I : SOUND 1 ,60.- 14,8 I SOUND 2 , 96, 14,8 

8010 FOR B2=l TO 200 1 NEXT B2 : GOSUB 15000."RETU 

RN 
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9000 GOSUB lBOOO: PRINT " KNIGHT - B 

ATTLE" 

9140 PRINT "ENTER NAME OF THE CASTLE-LORD " ' I 
INPUT BURG* 

3150 PRINT "ENTER NAME OF THE KNIGHT "''. INPUT 
RIT* 

91 bo return 

10000 trap looooiprint "new game "jiinput z*: 

if z*( 1 , 1 )="n" then end 

10010 c* = burg* : burg* = r i t* ." r i t* = c* : x 1 =0 : y 1 =0 : d 

i=o:goto ioo 

15000 for b2 = to 3: sound b2 , , , : next b2ire 

TURN 

16000 GRAPHICS OISETCOLOR 4 , 4 , 2 : SETCOLOR 2,4, 

2IRETURN 
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CALENDAR 



CALENDAR 

This program will produce a calendar for one year. Leap years are 
included. The result can be output to either the screen or to a 
printer. 

10 REM CALENDARPROGRAM 

20 REM THE PROGRAM CALCULATES THE 

CALENDAR OF ONE YEAR 
30 DIM A(150) ,A1 (368) ,A$( 10) ,B$( 12) ,C$(2) :0P 
EN #2,4,0, "K: " 

40 GRAPHICS 2:SETC0L0R 4 , 8 , 2 : SETCOLOR 2,8,21 
POSITION 2,3:? #G; "CALENDARPROGRAM" 
100 ? "for which year do you want the 

calendar " J : INPUT J 
105 ? ">outPut to screen (1) or printer (2)" 
." :get #2,AU 

107 IF AU = 50 THEN LPRINT CHR$(14>;" 
calendar for "JJILPRINT ILPRINT ILPRINT "" 
110 Jl=J:iF J<100 THEN J=J+1900 

120 m=i:b$= u m :l=o:if int(J/4>oj/4 then iso 
130 if int( j/100)=j/100 then if int(j/400)<> 

J/400 THEN 150 

140 B$=" ( leap-year) " :L=1 

150 T=INT< ( J-1893)/4) 

1g0 c=( j-1893+t)/7:c=int( (c-int(c) )*7+0.5) 
165 restore 1390:f0r 1=1 to 12:read a:a<i>=a 
:next i :a(2)=a(2)+l 

1=1 to m: 



170 FOR M=l TO 12: RESTORE 1' 


400 :f 


READ A$:NEXT 1 




180 D=0:iF M=l THEN 200 




190 FOR 1=1 TO M-i:D=D+A(I) 


."NEXT 


200 D=(D+C)/7 




205 D=INT( (D-INT(D) )*7+0.5) 




210 IF D=0 THEN D=7 




220 REM 
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230 t=0:f0r i=d-2 to step -1 ! t=t+1 : a ( t+12) 

= (-d:next i 

240 p=i:for j=d to 7:a< j+12)=p:p=p+i:next j 

250 RESTORE 1420:W=0:iF AU=50 THEN 400 

260 graphics 2:setc0l0r 4,b,2:f0r j=0 to 18 
step 3:read b*:position j,o:? #s;b$:next j 

290 FOR 1=2 TO 9 

300 p=o:for j=o to is STEP 3 

310 P = P+i:Q=^A(P+12)+W*7 

320 IF Q<=0 AND AU = 50 THEN LPRINT CHR*(14);" 

" ■ :GOTO 370 
330 IF GK=0 OR Q>A(M) THEN 370 

334 IF AU=50 AND G<10 THEN LPRINT CHR*(14>;" 

II * 

r 

335 IF AU = 50 THEN LPRINT CHR$ ( 14 ) ', ', " " ; : G 
OTO 370 

340 POSITION j.i:? #G?Q 

370 NEXT j:W=W+i:iF AU = 50 THEN LPRINT 

375 next kif au = 50 then next mirun 

380 ? "> m ;a*;:get #2, k: next m:run 

400 lprint chr$<14) ;a*:lprint :lprint :for j 

=1 to 7:read c$:lprint chr$( 14) ;c$; h ";:ne 

xt j : lprint igoto 290 

1390 DATA 31,28,31,30,31,30,31,31,30,31,30,3 

1 

1400 DATA JANUARY, FEBRUARY, MARCH , APRIL , MAY , 

JUNE , JULY , AUGUST , SEPTEMBER , OCTOBER , NOVEMBER , 

DECEMBER 

1420 DATA SU,MO,TU,WE,TH,FR,SA 
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GUNFIGHT 



GUN FIGHT is for two players. Each player uses one joystick. Plug 
the joystick in port 1 and 2. Port 1 refers to the left player, port 2 
to the right player. 

GUNFIGHT starts with the Copyright-statement. Press one of the 
two trigger buttons and the playfield appears. Now you can move 
the cowboys. 

The Game 

You shoot by pressing the trigger. Each player has 10 cowboys 
and each cowboy 50 bullets. By holding the button pressed the 
gun keeps firing until the cowboy has no more bullets. There are 
2 ways to be killed: Your opponent can shoot you or you can 
drown in the sea. 

After each round the game waits for you to press the trigger. The 
game-status appears. It shows you the actual number of cowboys 
and bullets. When you press the trigger the game goes on with the 
next round. The winner of the game will be shown after you press 
the trigger button. Pressing the trigger the game starts again with 
the Copyright-statement. 

The Sea 

Don' t touch this blue area because you will be drowned. 

If you run out of bullets: 

If you don' t have any bullets you can only flee and hope that the 
enemy will touch the sea. 
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You can hide your cowboy behind any one of the three rocks. 
But when your opponent also hides behind a rock, he can shoot 
you as long as his gun is behind the rock. 



The program starts at hex 1000. To key the program in, you need 

a machine language monitor or the ATARI® Editor/Assembler 

cartridge. 

The starting address of the program GUNFIGHT is 1016 hex. 

Start with GOTO 1016. Skip the location between 175Fand 1F98. 

1 F98 = Start of display list 

2000 = End of display list and beginning of the background. 

Type in everything like it is. (Use the fill-command of 

a machine language monitor). 
2FFF End of background 
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till**************;*********************'* 

* * 

* GUNFIGHT FOR ATARI * 

* * 

* EY HANS-CHRISTOPH WAGNER * 

* * 

* 07-12-1981 NIJMEGEN-NL * 

* * 

************************************* 



COUT 


EQU 


$F6A4 


PRIOR 


EQU 


*26F 


CONSOL 


EQU 


SD01F 


HITCLR 


EQU 


SD01E 


DLISTL 


EQU 


$230 


DLISTH 


EQU 


S231 


PFCOLO 


EQU 


*2C4 


PFC0L1 


EQU 


*2C5 


PFC0L2 


EQU 


«2C6 


PFC0L3 


EQU 


*2C7 


PFC0L4 


EQU 


*2C8 


PCOLRO 


ECU 


*2C0 


PC0LR1 


EQU 


S2C1 


SDMCTL 


EQU 


*22F 


AUDF1 


EQU 


SD200 


AUDC1 


EQU 


*D201 


AUDF2 


EQU 


SD202 


AUDC2 


EQU 


SD203 


HPOSMO 


EQU 


$D0O4 


HPDSM1 


EQU 


SD005 


HPOSF'O 


EQU 


*D0OO 


HP0SP1 


EQU 


*D001 


MOPF 


EQU 


*D000 


MOPL 


EQU 


SD008 


M1PF 


EQU 


SD001 


M1PL 


EQU 


•D009 


POPF 


EQU 


4D004 


POPL 


EQU 


SDOOC 


P1PF 


EQU 


$0005 


P1PL 


EQU 


SDOOD 


STICKO 


EQU 


S278 


STICK1 


EQU 


$279 


STRIGO 


EQU 


*284 


STRIG1 


EQU 


«285 


DEC1 


EQU 


PTX + 1 


WINFL 


EQU 


*D1 


BULLCO 


EQU 


*D2 


BULLC1 


EQU 


*D3 


LIFECO 


EQU 


*D4 


LIFEC1 


EQU 


*D5 


SPMBASE 


EQU 


SD6 


LASTFL 


EQU 


*D7 


SWTCHFL 


EQU 


*D8 


LEGXFL 


EQU 


*D9 


LEGOFL 


EQU 


*DA 


LEG1FL 


EQU 


*DB 


LEGCO 


EQU 


*DC 



SCREENOUT 

PRIORITIES 

SPEAKER 

CLR COLL. 

DISP. LIST POINTER 

PLAYFIELDCOLOR 
PLAYFIELDCOLOR 1 
PLAYFIELDCOLOR 2 
PLAYFIELDCOLOR 3 
PLAYFIELDCOLOR 4 
PLAYERCOLOR 1 
PLAYERCOLOR 2 
DMA CONTROLLER 
AUDIOFREQUENCE 1 
AUDIOCONTROL 1 
AUDIOFREQUENCE 2 
AUDIOCONTROL 2 

HOR. POS. MISSILE 1 

HOR. POS. MISSILE 2 

HOR. POS. PLAYER 1 

HOR. POS. PLAYER 2 



COLL. 


MISSILE 1 TO PLAYF. 


COLL. 


MISSILE 1 TO PLAYER 


COLL. 


MISSILE 2 TO PLAYF. 


COLL. 


MISSILE 2 TO PLAYER 


COLL. 


PLAYER 1 TO PLAYF. 


COLL. 


PLAYER 1 TO PLAYER 


COLL. 


PLAYER 2 TO PLAYF. 


COLL. 


PLAYER 2 TO PLAYER 


JOYSTICK 1 


JOYSTICK 2 


TRIGGER 1 


TRIGGER 2 



AUX. DECIMAL CONVERSION 

SHOWS WINNER 

BULLETS PLAYER 1 

BULLETS PLAYER 2 

COWBOYS PLAYER 1 

COWBOYS PLAYER 2 

PLAYER MISSILE DMA BASE 

AUX. FLAG 

FLAG TO INDICATE LEFT .RIGHT SHOOTING 

GENERAL MOVE LEGFL 

MOVE LEGFL. PL. 1 

MOVE LEGFL. PL. 2 

COUNTER TO nNOW WHEN HAS TO MOVE LEGS 
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LEBC1 


EQU 


*DD 


SCOUNTO 


EQU 


*DE 


SCOUNT1 


EQU 


*DF 


PTO 


EQU 


*EO 


PT1 


EQU 


*E2 


PTX 


EQU 


*E4 


MPTO 


EQU 


*E6 


MPT1 


EQU 


*EB 


MOCOUNT 


EQU 


*EA 


M1COUNT 


EQU 


$EB 


SONDOFL 


EQU 


*ED 


SOND1FL 


EQU 


$EE 


MOX 


EQU 


$EF 


MIX 


EQU 


*FO 


CDUNTO 


EQU 


*F1 


COUNT 1 


EQU 


*F3 


JUMP 


EQU 


*F5.7 


SHPOH 


EQU 


*FB 


SHP1H 


EQU 


*F9 


MOFLG 


EQU 


*FA 


M1FLB 


EQU 


*FB 


MOVMOFL 


EQU 


*FC 


MOVM1FL 


EQU 


*FD 


SAUDF1 


EQU 


*FE 


SAUDF2 


EQU 


*FF 


MEMSIZE 


EQU 


106 


PMBASE 


EQU 


*D407 


MASKO 


EQU 


*03 


MASKO 1 


EQU 


SFC 


MASK1 


EQU 


toe 


MASK 11 


EQU 


*F3 



COUNTER TO SLOW DOWN 3D. 1 
COUNTER TO SLOW DOWN SO. 2 
PM POINTER OF PL. 1 
PM POINTER' OF PL. 2 
BENERAL PM POINTER 
PM POINTER OF M. 1 
PM POINTER OF M. 2 
COUNTER TO SLOW DOWN M. 1 
COUNTER TO SLOW DOWN M.2 
INDICATES SOUND CREATION 

SHDW. HOR. POS. Ml 

SHDW. HOR. POS. M2 

SLOW DOWN PL. 1 

SLOW DOWN PL. 2 

JSR THROUBH THIS JMP INSTRUCTION 

SHDW. HOR. POS. PI 

SHDW. HOR. POS. P2 

INDICATES TRIBGER 1 

INDICATES TRIGBER 2 

IND. Ml IS MOVINS 

IND. M2 IS MOVING 

SHDW OF AUDF1 

SHDW OF AUDF2 

TOP OF RAM 
DMA PM BASE 

BITMASK TO CREATE Ml 
BITMASK TO CLEAR Ml 
BITMASK TO CREATE M2 
BITMASK TO CLEAR M2 



ORG *1016,*AB00 



1016: 


A2FF 


lOIBi 


9A 


1017: 


A94C 


101B: 


B5F5 


101D: 


AS6A 


101F: 


E910 


1021: 


85D6 


1023: 


A90B 


1025: 


BD6F02 


102B: 


EB 


1029: 


BEC602 


102C: 


8ECB02 


102F: 


20AC13 



START 



LDX 


#*FF 


TXS 




LDA 


tt*4C 


STA 


JUMP 


LDA 


MEMSIZE 


SBC 


#16 


STA 


SPMBASE 


LDA 


#*08 


STA 


PRIOR 


INX 




STX 


PFC0L2 


STX 


PFC0L4 


JSR 


INIT 



INIT. STACK 



INIT. JUMP 



CALC. PMBASE 

GIVE PRIORITY SEE MANUAL 



PLAYFIELDCOLORS:=0 (BLACK) 
INITIALISE OTHER STUFF 



POLLING LOOP 



1032: 


200D11 


L00P2 


JSR 


MDVPO 


SERVICE 


PI 


1035: 


204711 




JSR 


M0VP1 


SERVICE 


P2 


103B: 


206F12 




JSR 


MOVMO 


SERVICE 


MO 


103B: 


20D712 




JSR 


M0VM1 


SERVICE 


Ml 
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103E: 205612 

1041: 209C14 

1044: 203F13 

1047: 208F13 

104A: 4C3210 



JSR CHCKTRIB 
JSR CHCKCDLL 
JSR SOUND 
JSR SWITCH 
JMP L0DP2 



SERVICE TRIGGERS 

CHECK COLL. 

SERVICE SOUNDS 

SERVICE RIGHT OR LEFT COWBOY 

POLL AGAIN 



104D: 
1050: 
1052: 
1054: 
1056: 
1058: 
105B: 



20B610 

A5DA 

85D9 

24DB 

1003 

4C6F10 

4C8E10 



SETUPO 



0THER1 



JSR 
LDA 
STA 
BIT 
BPL 
JMP 
JMP 



MOVPOX 

LEGOFL 

LEGXFL 

SWTCHFL 

OTHER 1 

SETUP XI 

SETUPX2 



MOVE POINTERS TO GENERAL 



MOVE LEGFL TO GENERAL 
WHICH IMAGE RIGHT OR LEFT 



SETUP RIGHT ONE 
SETUP LEFT ONE 



105E: 
1061: 
1063: 
1 065 : 
1067: 
1069: 
106C: 



20AD 1 

A5DB 

85D9 

24D8 

3003 

4C6F10 

4C8E10 



SETUP 1 



0THER2 



JSR M0VP1X 
LDA LEG1FL 
STA LEGXFL 
BIT SWTCHFL 
BMI 0THER2 
JMP SETUPX1 
JMP BETUPX2 



SEE SETUPO 



106F: 
1071: 
1073: 
1075: 
1077: 
107A: 
107C: 
1 07F : 
1081: 
1 082 : 
1083: 
1085: 
1 088 : 
108A: 
108B: 
108D: 



A014 

A206 

24D9 

1005 

BDE310 

D003 

BDEA10 

91E4 

88 

CA 

10EE 

B9D5 1 

91E4 

88 

1 0F8 
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SETUPX1 



L00P3 



LEG2 
STORE 



L0OP31 



LDY 
L.DX 
BIT 
BPL 
LDA 
BNE 
LDA 
STA 
DEY 
DEX 
BPL 
LDA 
STA 
DEY 
BPL 
RTS 



RIGHT ONE 



SPREAD LEGS" 



#19 + 1 

#6 

LEGXFL 

LEG2 

LEGTAB1, X 

STORE A.T. ALWAYS 

LEGTAB2, X 

(PTX) , Y 



LO0P3 

B0DYTAB1,Y SETUP BODYPART 

<PTX) , Y 



L00P31 



108E: 
1 090 : 
1092: 
1094: 
1096: 
1099: 
1 09B : 
109E: 
10A0: 
10A1: 
10A2: 
10A4: 
10A7: 
10A9: 
1 OAA : 
10AC: 



A014 

A206 

24D9 

1 005 

BDFF10 

DO 03 

BD0611 

91E4 

88 

CA 

1 OEE 

B9F110 

91E4 

88 

10F8 
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SETUPX2 



L00P031 



LEG21 
STORE01 



L00P311 



LDY 
LDX 
BIT 
BPL 
LDA 
BNE 
LDA 
STA 
DEY 
DEX 
BPL 
LDA 
STA 
DEY 
BPL 
RTS 



#19+1 

#6 

LEGXFL 

LEG21 

LEGTAB21. 

ST0RE01 

LEGTAB22, 

(PTX) , Y 



L00P031 
B0DYTAB2, Y 
(PTX) , Y 

L00P311 



SETUP LEFT SEE SETUPX1 
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10AD: 


A5E2 


M0VP1X 


LDA 


PT1 


10AF: 


B5E4 




STA 


PTX 


10B1: 


A5E3 




LDA 


PT1 + 1 


10B3: 


85E5 




STA 


PTX + 1 


10B5: 


60 




RTS 




10B6: 


A5E0 


MOVPOX 


LDA 


PTO 


10BB: 


85E4 




STA 


PTX 


10BA: 


A5E1 




LDA 


PTO+ 1 


10BC: 


B5E5 




STA 


PTX + 1 


1 OBE : 


60 




RTS 




10BF: 


20AD10 


CLRPL1 


JSR 


MOVF'IX 


10C2: 


4CCB10 




JMP 


CLRPLX 


IOCS: 


20B610 


CLRPLO 


JSR 


MOVPOX 


10CB: 


4CCB10 




JMP 


CLRPLX 


10CB: 


A014 


CLRPLX 


LDY 


#19+1 


10CD: 


A900 




LDA 


#0 


10CF: 


91E4 


L00P4 


STA 


(PTX) , Y 


10D1: 


88 




DEY 




10D2: 


10FB 




BPL 


L00P4 


10D4: 


60 




RTS 





MOVE POINTER TO GENERAL POINTER 



SEE M0VP1X 



10D5: 


181B7E 


B0DYTAB1 


10DB: 


183818 




10DB: 


08 




10DC: 


1C1C1C 




1 ODF : 


7C3C1C 




1 0E2 : 


1C 




10E3: 


080808 


LEBTAB1 


1 0E6 : 


080B3B 




10E9: 


38 




10EA: 


0808 1 6 


LEGTAB2 


1 OED : 


161272 




10F0: 


72 




10F1: 


18187E 


B0DYTAB2 


10F4: 


181C18 




10F7: 


103B3B 




10FA: 


383E3C 




10FD: 


38 




10FE: 


38 




10FF: 


101010 


LEGTAB21 


1102: 


10101C 




1105: 


1C 




1106: 


101068 


LEGTAB22 


1107: 


68484E 




HOC: 


4E 





MO VPO INTER 
CLEAR PLAYER 



SEE CLRPL1 



CLEAR 20 BYTES 



PLAYER DOESNT EXIST ANYMORE 
DIFFERENT IMAGES LEGS AND BODIES 
DFB $18, $18, $7E, $18, $38, $18, $08 

DFB *1C,$1C,$1C,$7C,$3C,$1C 

DFB $1C 

DFB $08, $08, $08, $08, $08, $3B 

DFB $38 

DFB $08, *0B,*16, $16, *12,*72 

DFB $72 

DFB $18,$18,$7E,*18,*1C,$1B 

DFB $10,*3B,$3B, $38, $3E,*3C,$3B 

DFB $38 

DFB $10,*10,*10,$10,$10,$1C,*1C 

DFB $10, $10,$68,$6B, $48,*4E,$4E 



68 



HOD: 


E6F1 MOVPO 


INC 


COUNTO 


SLOWDOWNCOUNTER+: =1 


1 1 OF : 


A5F1 


LDA 


COUNTO 




1111: 


C930 


CMP 


#*30 




1113: 


DO 31 


BNE 


RTS1 


IF C0UNT<>*30 NO SERVICE 


1115: 


A900 


LDA 


#0 




1117: 


85F1 


STA 


COUNTO 


COUNT 1-0 


1119: 


AD7B02 


LDA 


STICKO 




111C: 


203D12 


JSR 


COMPARE 


REQUEST STICK 


111F: 


B025 


BCS 


RTS1 


C=l => NO SERVICE 


1121: 


B9S1U 


LDA 


JMPTABO, Y 




1124: 


85F6 


STA 


JUMP+1 




1126: 


B98211 


LDA 


JMPTABO+l. 


V 


1129: 


85F7 


STA 


JUMP+2 




112B: 


20F500 


JSR 


JUMP 


EXECUTE FLAYER MOVEMENT 


112E: 


204D10 


JSR 


SETUPO 


SETUP NEW PLAYER 


1131: 


E6DC 


INC 


LEGCO 


LEGC+:=1 


1 133: 


A5DC 


LDA 


LEGCO 




1135: 


C908 


CMP 


#*08 




1 1 37 : 


DOOD 


BNE 


RTS1 


IF LEGC=B THEN LEGS:=NOT 


1139: 


A200 


LDX 


#0 




113B: 


8E1FD0 


STX 


CONSOL 


MAKE NOISE 


113E: 


86DC 


STX 


LEGCO 


LEGC:=0 


1140: 


CA 


DEX 






1141: 


8A 


TXA 






1142: 


45DA 


EOR 


LEGOFL 


LEGOFL : =NOT ( LEGOFL) 


1144: 


85DA 


STA 


LEGOFL 




1146: 


60 RTB1 


RTS 






1147: 


E6F3 M0VP1 


INC 


COUNT 1 


SEE MOVPO 


1149: 


A5F3 


LDA 


C0UNT1 




U4B: 


C930 


CMP 


#*30 




114D: 


D031 


BNE 


RTS2 




114F: 


A900 


LDA 


#0 




1151: 


85F3 


STA 


COUNT 1 




1153: 


AD7902 


LDA 


STICK1 




1156: 


203D12 


JSR 


COMPARE 




1159: 


B025 


BCS 


RTS2 




115B: 


B9911 1 


LDA 


JMPTAB1, Y 




115E: 


85F6 


STA 


JUMP+1 




1160: 


B99211 


LDA 


J MPT AB 1+1, 


Y 


1163: 


85F7 


STA 


JUMP+2 




1165: 


20F500 


JSR 


JUMP 




116B: 


205E 1 


JSR 


SETUP 1 




U6B: 


E6DD 


INC 


LEGC1 




116D: 


A5DD 


LDA 


LEGC1 




116F* 


C90B 


CMP 


#*08 




1171: 


DOOD 


BNE 


RTS2 




1173: 


A200 


LDX 


#0 




1175: 


8E1FD0 


STX 


CONSOL 




1178: 


86DD 


STX 


LEGC1 




117A: 


CA 


DEX 






1 17B: 


8A 


TXA 






1 1 7C : 


45DB 


EDR 


LEG1FL 




117E: 


85DB 


STA 


LEG1FL 




1180: 


60 RTS2 


RTS 







(LEGS) 
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1181: 
UB4: 
1187: 
11B9: 
118C: 
118F: 



A111AF 

UBD11 

CA11 

D711DD 

11E311 

E911 



JMPTABO DFW UPO, DOWNO, RI GHTO, LEFTO 



DFW URO,ULO,DRO,DLO 



1171: 
1194: 
1197: 
1199: 
119C: 
119F: 



EF11FD 

110B12 

1812 

25122B 

123112 

3712 



JMPTAB1 DFW UP1,D0WN1,RIGHT1,LEFT1 



DFW UR1,UL1,DR1,DL1 



11A1: 
11A4: 
11A6: 
11A8: 
11AA: 
11AC: 
11AE: 



2OC510 UPO 

A5E0 

C90B 

F004 

C6E0 

C6E0 

60 



N0M0V1 



JSR CLRPLO 
LDA PTO 
CMP #11 
BEQ N0M0V1 
DEC PTO 
DEC PTO 
RTB 



CLRPLAYER 



IF YCOOR=11 THEN NDMOVE 
YC00R-:=2 



11AF: 
11B2: 
UB4: 
11B6: 
11B8: 
11BA: 
11BC: 



20C510 DOWNO 

A5E0 

C9E3 

F004 

E6E0 

E6E0 

60 



N0M0V2 



JSR CLRPLO 
LDA PTO 
CMP #*E3 
BEQ N0M0V2 
INC PTO 
INC PTO 
RTS 



IF YC00R=227 THEN NOMOVE 
YCDDR+:=2 



11BD: A4FB RIGHTO 

11BF: C0C9 

UC1: B006 

11C3: C8 

11C4: 8C00D0 

11C7: 84F8 

11C9: 60 RGTORTS 



LDY SHPOH 

CPY #201 

BCS RGTORTS 

INY 

STY HPOSPO 

STY SHPOH 

RTS 



IF XC00R>=200 THEN NDMOVE 



XCOOR+:=1 



11CA: A4F8 LEFTO 

11CC: C032 

UCE: 9006 

11 DO: 88 

11D1: BCOODO 

11D4: 84F8 

11D6: 60 LFTORTS 



LDY SHPOH 

CPY #50 

BCC LFTORTS 

DEY 

STY HPOSPO 

STY SHPOH 

RTS 



IF XC00R<50 THEN NOMOVE 



XC00R-:=1 



11D7: 
1 IDA: 



20BD11 URO 
4CA111 



JSR RIGHTO 
J MP UPO 



RIGHTMOVE 
UPMOVE 



HDD: 
11E0: 



20CAU ULO 
4CA111 



JSR LEFTO 
J MP UPO 



LEFTMOVE 
UPMOVE 



11E3: 
11E6: 



20BD11 DRO 
4CAF11 



JSR RIGHTO 
J MP DOWNO 



RIGHTMOVE 
DOWNMOVE 



11E9: 
11EC: 



20CA11 DLO 
4CAF11 



JSR LEFTO 
J MP DOWNO 



LEFTMOVE 
DOWNMOVE 
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11EF: 


20BF10 


UP1 


JSR 


CLRPL1 


11F2: 


A5E2 




LDA 


PT1 


11F4: 


C90B 




CMP 


#«0B 


11F6: 


F004 




BEQ 


N0M0V3 


11F8: 


C6E2 




DEC 


PT1 


UFA: 


C6E2 




DEC 


PT1 


UFC: 


60 


NDMDV3 


RTS 




11FD: 


20BF10 


D0WN1 


JSR 


CLRPL1 


1200: 


A5E2 




LDA 


PT1 


1202: 


C9E3 




CMF 


#*E3 


1204: 


F004 




BEQ 


N0MDV4 


1206: 


E6E2 




INC 


PT1 


1208: 


E6E2 




INC 


PT1 


120A: 


60 


N0M0V4 


RTS 




120B: 


A4F9 


RIGHT1 


LDY 


SHP1H 


120D: 


C0C9 




CPY 


#201 


120F: 


B006 




BCS 


RBT1RTS 


1211: 


C8 




I NY 




1212: 


8C01D0 




STY 


HP0SP1 


1215: 


84F9 




STY 


SHP1H 


1217: 


60 


RGT1RTS 


RTS 




121B: 


A4F9 


LEFT1 


LDY 


SHP1H 


121A: 


C032 




CPY 


#50 


121C: 


9006 




BCC 


LFT1RTS 


121E: 


88 




DEY 




121F: 


8C0 1 DO 




STY 


HP0SP1 


1222: 


84F9 




STY 


SHP1H 


1224: 


60 


LFT1RTS 


RTS 




1225: 


200B12 


UR1 


JSR 


RIBHT1 


1228: 


4CEF11 




JMP 


UP1 


122B: 


201B12 


UL1 


JSR 


LEFT1 


122E: 


4CEF11 




JMP 


UP1 


1231: 


200B12 


DR1 


JSR 


RIGHT1 


1234: 


4CFD11 




JMP 


D0WN1 


1 237 : 


201812 


DL1 


JSR 


LEFT1 


123ft: 


4CFD11 




JMP 


D0WN1 


123D: 


A007 


COMFARE 


LDY 


#7 


123F: 


D94E12 


LOOPS 


CMP 


COMTAB, Y 


1242: 


F005 




BED 


FOUND 


1244: 


88 




DEY 




1245: 


10FB 




BPL 


LOOPS 


1247: 


38 




SEC 




1248: 


60 




RTS 




1249: 


98 


FOUND 


TYA 




124A: 


OA 




ASL 




124B: 


A8 




TAY 




124C: 


18 




CLC 




124D: 


60 




RTS 





SEE UPO 



SEE DOWNO 



SEE RIGHTO 



SEE LEFTO 



SEE URO 



SEE ULO 



SEE DRO 



SEE DLO 



THERE ARE 8 DIRECTIONS 
STICK HAS VALUE 



IF NOT ALL VALUES CHECKED 
C=l => NO VALUE 



Y:=2*Y 

C=0 => VALUE 
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124E: 0E0D07 CDMTAB 
1251: 0B060A 
1254: 0509 



DFB 14,13,7,11,6,10,5,9 



DECIMAL DF 4BIT JOYSTICK 
VALUES 



1256: 


3B 


CHCKTRIG 


SEC 




1257: 


ADB402 




LDA 


STRIGO 


125A: 


D007 




BNE 


CTRIB1 


125C: 


A5D2 




LDA 


BULLCO 


125E: 


F003 




BED 


CTRIG1 


1260: 


66FA 




ROR 


MOFLQ 


1262: 


38 




SEC 




1263: 


AD8502 


CTRIG1 


LDA 


STRIG1 


1266: 


D006 




BNE 


CTRGRTS 


126B: 


A5D3 




LDA 


BULLC1 


126A: 


F002 




BEQ 


CTRGRTS 


126C: 


66FB 




ROR 


M1FLG 


126E: 


60 


CTRQRTS 


RTS 




126F: 


24FC 


MOVMO 


BIT 


MOVMOFL 


1271: 


3029 




BMI 


MOVMO 1 


1273: 


A5FA 




LDA 


MOFLG 


1275: 


85FC 




STA 


MOVMOFL 


1277: 


B5ED 




STA 


SONDOFL 


1279: 


1047 




BPL 


RTS3 


127B: 


C6D2 




DEC 


BULLCO 


127D: 


A9AF 




LDA 


#*AF 


127F: 


8D01D2 




STA 


AUDC1 


1282: 


A5E0 




LDA 


PTO 


12B4: 


85E6 




STA 


MPTO 


12B6: 


A5FB 




LDA 


SHPOH 


12BB: 


24D8 




BIT 


SWTCHFL 


128A: 


3003 




BMI 


ST0RE1 


12BC: 


18 




CLC 




12BD: 


690B 




ADC 


#8 


12BF: 


85EF 


STORE 1 


STA 


MOX 


1291: 


BD04D0 


* 


STA 


HPOSMO 


1294: 


AOOA 


* 


LDY 


#10 


1296: 


B1E6 




LDA 


(MPTO) , Y 


129B: 


0903 




ORA 


#MASKO 


129A: 


91E6 




STA 


(MPTO) , Y 


129C: 


E6EA 


MOVMO 1 


INC 


MOCOUNT 


129E: 


A5EA 




LDA 


MOCOUNT 


12A0: 


C910 




CMP 


#$10 


12A2: 


D01E 




BNE 


RTS3 


12A4: 


A900 




LDA 


#0 


12A6: 


85EA 




STA 


MOCOUNT 


12A8: 


A5EF 




LDA 


MOX 


12AA: 


C9D0 




CMP 


#208 


12AC: 


B015 




BCS 


RESMO 


12AE: 


C92D 




CMP 


#45 


12B0: 


9011 




BCC 


RESMO 


12B2: 


24DB 




BIT 


SWTCHFL 


12B4: 


3005 




BMI 


DECR 


12B6: 


E6EF 




INC 


MOX 


12BB: 


4CBD12 




J MP 


ST0RE2 


12BB: 


C6EF 


•DECR 

* 


DEC 


MOX 



C=l 

IF TRGGER1O0 THEN CHECK TRIGGERS 



ELIF BULLETS< >0 THEN 

SET MOFLG VIA TRUE CARRY 

C=l 

SEE ABOVE 



IF MOVMOFL THEN SERVICE 

MOVMOFL :=MOFLG 

SONDOFL :=MOFLG 

IF NO TRIGGER THEN RETURN 

BULLETS-: =1 

SET NOISE VOLUME ETC. 

YCOOR (MISSILE) : =YC0OR (PLAYER) 



XCOOR(M):=IF RIGHTCOWBOY 
THEN XC00R(P)+8 
ELSE XCOOR(P) 

YCOOR+:=10 

SET MISSILE 

IF MOCOUNT <>16 NO SERVICE 
MOCOUNT: =0 

IF XCOOR5207 THEN RESET MISSILE 
IF XC00R<45 THEN REST MISSILE 



IF RIGHTCOWBOY THEN INCREMENT 
ELSE DECREMENT 
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12BD: 


A5EF 


ST0RE2 


LDA 


MOX 




12BF: 


8D04D0 




STA 


HPDSMO 




12C2: 


60 


RTS3 


RTS 






12C3: 


46FC 


RESMO 


LSR 


MDVMOFL 


MOVMOFL:=FALSE 


12C5: 


46FA 




LSR 


MOFLG 


MOFLG :=FALSE 


12C7: 


205813 




JSR 


RSOUNDO 


RESET SOUND 


12CA: 


A00A 




LDY 


#10 


YCOOR:=YCOOR+11 


12CC: 


B1E6 




LDA 


( MPTO ) , Y 




12CE: 


29FC 




AND 


#MASK01 


CLEAR MISSILE 


12D0! 


91E6 




STA 


(MPTO) , Y 




12D2: 


A900 




LDA 


#0 




12D4: 


85EA 




STA 


MOCOUNT 


MOCOUNT s=0 


12D6: 


60 




RTS 






12D7: 


24FD 


M0VM1 


BIT 


M0VM1FL 


SEE MOVMO 


12D9: 


3029 




BMI 


MQVM11 




1 2DB : 


A5FB 




LDA 


M1FLG 




12DD: 


B5FD 




STA 


M0VM1FL 




12DF: 


85EE 




STA 


S0ND1FL 




12E1: 


1047 




BPL 


RTS4 




12E3: 


C6D3 




DEC 


BULLC1 




12E5: 


A9AF 




LDA 


#*AF 




12E7: 


BD03D2 




STA 


AUDC2 




12EA: 


A5E2 




LDA 


PT1 




12EC: 


B5EB 




STA 


MPT1 




12EE: 


A5F9 




LDA 


SHP1H 




12F0: 


24DB 




BIT 


SWTCHFL 




12F2: 


1 003 




BPL 


STORES 




12F4: 


IB 




CLC 






12F5: 


6908 




ADC 


#B 




12F7: 


85F0 


ST0RE3 


STA 


MIX 




12F9: 


8D05D0 




STA 


HP0SM1 




12FC: 


AOOA 




LDY 


#10 




12FE: 


B1E8 




LDA 


(MPT1) , Y 




1 300 : 


090C 




DRA 


#MASK1 




1302: 


91EB 




STA 


(MPT1) , Y 




1304: 


E6EB 


M0VM1 1 


INC 


Ml COUNT 




1306: 


A5EB 




LDA 


Ml COUNT 




1308: 


C910 




CMP 


#*10 




130A: 


DO IE 




BNE 


RTS4 




130C: 


A900 




LDA 


#0 




1 30E : 


85EB 




STA 


Ml COUNT 




1310: 


A5F0 




LDA 


MIX 




1312: 


C9D0 




CMP 


#208 




1314: 


BO 15 




BCS 


RESM1 




1316: 


C92D 




CMP 


#45 




1318: 


9011 




BCC 


RESM1 




131A: 


24D8 




BIT 


SWTCHFL 




131C: 


1 005 




BPL 


DECR1 




131E: 


E6F0 




INC 


MIX 




1320: 


4C2513 




J MP 


ST0RE4 




1323: 


C6F0 


DECR1 


DEC 


MIX 




1325: 


A5F0 


STDRE4 


LDA 


MIX 




1 327 : 


8D05D0 




STA 


HP0SM1 




132 A 8 


60 


RTS4 


RTS 






132B: 


46FD 


RESM1 


LSR 


M0VM1FL 




132D: 


46FB 




LSR 


M1FLB 




132F: 


20B0 1 3 




JSR 


RS0UND1 
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1332: 


A00A 




LDY 


#10 




1334 s 


B1E8 




LDA 


(MPT1) , Y 




1336: 


29F3 




AND 


#MASK11 




133B: 


91E8 




STA 


(MPT1) , Y 




133A: 


A900 




LDA 


#0 




133C: 


85EB 




STA 


M1C0UNT 




133E: 


60 




RTS 






133F: 


24ED 


SOUND 


BIT 


SONDOFL 




1341: 


1 024 




BPL 


NOSDNDO 


IF N0S0UND1 THEN SERVICE SOUNC 


1343: 


E6DE 




INC 


SCOUNTO 


SC0UNT+:=1 


1345: 


A5DE 




LDA 


SCOUNTO 




1347: 


C910 




CMP 


#*10 




1349: 


D01C 




BNE 


NOSONDO 


IF SCOUNTO 16 THEN SERVICE SOL 


134B: 


A900 




LDA 


#0 




134D: 


85DE 




STA 


SCOUNTO 


SCOUNT:=0 


134F: 


E6FE 




INC 


SAUDF1 


FREQUENCE: =FREQUENCE+1 


1351: 


A5FE 




LDA 


SAUDF1 




1353: 


BD00D2 




STA 


AUDF1' 




1 356: 


100F 




BPL 


NOSONDO 




1358: 


A9A0 


RSOUNDO 


LDA 


#SAO 


IF FREQUENCES 28 THEN RESET 


135A: 


8D01D2 




STA 


AUDC1 


VOLUME=0 


135D: 


A900 




LDA 


#0 




135F: 


85FE 




STA 


SAUDF1 


FREQUENCES 


1361: 


8D00D2 




STA 


AUDF1 




1364: 


46ED 




LSR 


SONDOFL 


SONDOFL: =FALSE 


1366: 


60 


RTS7 


RTS 






1367: 


24EE 


NOSDNDO 


BIT 


S0ND1FL 


SEE ABOVE 


1369: 


10FB 




BPL 


RTS7 




136B: 


E6DF 




INC 


SC0UNT1 




136D: 


A5DF 




LDA 


SC0UNT1 




136F: 


C910 




CMP 


#$10 




1371: 


D0F3 




BNE 


RTS7 




1373: 


A900 




LDA 


#0 




1375: 


85DF 




STA 


SC0UNT1 




1377: 


E6FF 




INC 


SAUDF2 




1379: 


A5FF 




LDA 


SAUDF2 




137B: 


8D02D2 




STA 


AUDF2 




137E: 


10E6 




BPL 


RTS7 




1380: 


A9A0 


RSDUND1 


LDA 


#*A0 




1382: 


BD03D2 




STA 


AUDC2 




1 385 : 


A900 




LDA 


#0 




1387: 


85FF 




STA 


SAUDF2 




1389: 


BD02D2 




STA 


AUDF2 




138C: 


46EE 




LSR 


S0ND1FL 




138E: 


60 




RTS 






13BF: 


A5F8 


SWITCH 


LDA 


SHPOH 




1391: 


C5F9 




CMP 


SHP1H 




1393: 


66D8 




ROR 


SWTCHFL 


IF X(P1)>=X(P2) THEN SWTCHFL: = 


1395: 


A5DB 




LDA 


SWTCHFL 




1397: 


45D7 




EOR 


LASTFL 




1399: 


1010 




BPL 


RTS8 


IF SWTCHFL=LASTFL THEN RETURN 


139B: 


A5D8 




LDA 


SWTCHFL 


ELSE: 


139D: 


85D7 




STA 


LASTFL 


LASTFL: SWTCHFL 


139F: 


205E10 




JSR 


SETUP 1 




13A2: 


204D10 




JSR 


SETUPO 


SETUP NEW IMAGES 


13A5: 


20C312 




JSR 


RESMO 




13A8: 


202B13 




JSR 


RESM1 


RESET MISSILES PREVENT SUICIDE 


13AB: 


60 


RTSB 


RTS 
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13AC: 


202416 


13AF: 


7D 


13B0: 


434F50 


13B3: 


595249 


13B6: 


474854 


13B9: 


203 1 39 


13BC: 


383120 


13BF: 


494E47 


13C2: 


2E2057 


13C5: 


2E2048 


13C8I 


4F4641 


13CB: 


434B45 


13CE: 


522047 


13D1: 


4D424B 


13D4: 


0D0D0D 


13D7: 


ODODOD 


13DA: 


8D 


13DB: 


20C816 


13DE: 


202416 


13E1: 


47554E 


13E4: 


464947 


13E7: 


4854 


13E9: 


0D8D 


13EB: 


20C816 


13EE: 


202416 


13F1: 


425920 


13F4: 


482E43 


13F7: 


2E2057 


13FA: 


41474E 


13FD: 


4552 


13FF: 


ODBD 


1401s 


2000 1 6 


1404: 


A97D 


1406: 


20A4F6 


1409: 


20DD 1 6 


140C: 


A93B 


140E: 


8DC002 


141 1 : 


A9BA 


1413: 


8DC102 


1416: 


A208 


1418: 


A900 


141A: 


95E4 


141C: 


CA 


14 1 D s 


1 OFB 


1 4 1 F : 


A90B 


14215 


85E2 


1423: 


A9E3 


1425: 


85E0 


1427: 


A5D6 


1429: 


18 


142A: 


6903 


142C: 


85E7 


142E: 


B5E9 


1430: 


85E5 


1432: 


ia 


1433: 


6901 


1435: 


85E1 


1437: 


18 


1438: 


6901 


143A: 


85E3 



JSR PRINT 

DFB $7D 

ASC "COPYRIGHT 1981 



ING. W. HOFACKER GMBH" 



DFB i: 



13, II 



13,13,13 



DFB 141 
JSR SPACE 
JSR PRINT 
ASC /GUNFIGHT/ 



DFB 13,141 

JSR SPACE 

JSR PRINT 

ASC "BY H.C. WAGNER" 



DFB 


13, 141 


JSR 


STRTWAIT 


LDA 


#*7D 


JSR 


COUT 


JSR 


PLAYF 


LDA 


#*3B 


STA 


PCOLRO 


LDA 


#*8A 


STA 


PC0LR1 


LDX 


#8 


LDA 


#0 


STA 


PTX, X 


DEX 




BPL 


LDDP1 


LDA 


#1 1 


STA 


PT1 


LDA 


#227 


STA 


PTO 


LDA 


SPMBASE 


CLC 




ADC 


#3 


STA 


MPTO+1 


STA 


NPT1+1 


STA 


PTX + 1 


CLC 




ADC 


#1 


STA 


PTO+1 


CLC 




ADC 


#1 


STA 


PT1+1 



WAIT FOR TRIGGER 



CLEAR SCREEN 
SETUP PLAYFIELD 



SET PLAYERCOLDRS 



I NIT SOME 0-PAGE STUFF 



INIT PLAYER POSITION VERT. 
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143C: 


IB 


CLC 




143D: 


6903 


ADC 


#3 


143F: 


85D7 


STA 


LASTFL 


1441: 


A000 


LDY 


#0 


1443: 


98 


TYA 




1444: 


91E4 L0DP11 


STA 


(PTX) , Y 


1446: 


C8 


I NY 




1447: 


DOFB 


BNE 


LDDP11 


1449: 


E6E5 


INC 


PTX + 1 


144B: 


A6E5 


LDX 


PTX + 1 


144D: 


E4D7 


CPX 


LASTFL 


144F: 


90F3 


BCC 


LDDP11 


1451: 


A937 


LDA 


#55 


1453: 


BDOODO 


STA 


HPDSPO 


1456: 


85FB 


STA 


SHPOH 


145B: 


A9CB 


LDA 


#200 


145A: 


8D01D0 


STA 


HP0SP1 


145D: 


B5F9 


STA 


SHP1H 


145F: 


46FB 


LSR 


M1FLG 


1461: 


46FA 


LSR 


MOFLG 


1463: 


A900 


LDA 


#0 


1465: 


B5DC 


STA 


LEGCO 


1467: 


B5DD 


STA 


LEGC1 


1469: 


B5D8 


STA 


SWTCHFL 


146B: 


85D7 


STA 


LASTFL 


146D: 


A90A 


LDA 


#10 


146F: 


B5D4 


STA 


LIFECO 


1471: 


85D5 


STA 


LIFEC1 


1473: 


A932 


LDA 


#50 


1475: 


85D2 


STA 


BULLCO 


1477: 


85D3 


STA 


BULLC1 


1479: 


A9CC 


LDA 


#*CC 


147B: 


BDC502 


STA 


PFC0L1 


147E: 


A91F 


LDA 


#*1F 


1480: 


SDCB02 


STA 


PFC0L4 


14B3: 


A90D 


LDA 


#*0D 


1485: 


8DC402 


STA 


PFCOLO 


148B: 


A98C 


LDA 


#*BC 


14BA: 


8DC602 


STA 


PFC0L2 


148D: 


A903 


LDA 


#3 


148F: 


8D1DD0 


STA 


53277 


1492: 


204D10 


JSR 


SETUPO 


1495: 


205E10 


JSR 


SETUP1 


1498: 


8D1ED0 


STA 


HITCLR 


149B: 


60 


RTS 




149C: 


A9FF CHCKCQLL 


LDA 


#*FF 


149E: 


85D1 


STA 


WINFL 


14A0: 


AD04D0 


LDA 


POPF 


14A3: 


49FF 


EDR 


#$FF 


14A5: 


2D00D0 


AND 


MOPF 


14AB: 


2901 


AND 


#*01 


14AA: 


F003 


BEG! 


NDENDO 


14AC: 


20C312 


JSR 


RESMO 


14AF: 


AD04D0 NDENDO 


LDA 


POPF 


14B2: 


2904 


AND 


#«04 


14B4: 


OD09D0 


QRA 


Ml PL 


14B7: 


2905 


AND 


#*05 


14B9: 


F014 


BEG 


CHCKCDL 1 



CALCULATE PLM DMA ADRESSES 



CLEAR ALL PLAYERS 



INIT HDR POS. PLAYERS 



RESET SDME FLAGS AND COUNTERS 



EACH PLAYER 10 COWBOYS 



EACH PLAYER 50 BULLETS 



GIVE PLAYFIELD COLORS 
START PLM DMA 



SETUP PLAYERS 
RESET COLL. 



WINFL=TRUE 



IF BEHIND ROCK NO RESET 
ELSE REST MISSILE 



IF DRUNK OR SHOT THEN KILL PL. 
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14B8 


202B13 


JSR 


RESM1 


14BE 


20C312 


JSR 


RESMO 


14C1 


20F7 1 6 


JSR 


PLAYDOWN 


14C4 


A932 


LDA 


#50 


14C6 


B5D2 


STA 


BULLCO 


14CB 


C6D4 


DEC 


LIFECO 


14CA 


D036 


BNE 


DISP 


14CC 


4C7416 


JMP 


GAMEOVER 


14CF 


A900 CHCKC0L1 


LDA 


#0 


14D1 


85D1 


STA 


WINFL 


14D3 


AD05D0 


LDA 


P1PF 


14D6 


49FF 


EDR 


#*FF 


14DB 


2D01D0 


AND 


M1PF 


14DB 


2901 


AND 


#*0 1 


14DD 


F003 


BED 


N0END1 


14DF 


202B13 


JSR 


RESM1 


14E2 


AD05D0 MQEND1 


LDA 


P1PF 


14E5 


2904 


AND 


#*04 


14E7 


ODOBDO 


DRA 


MOPL 


14EA 


2906 


AND 


#*06 


14EC 


F039 


BEQ 


RTS9 


14EE 


20C312 


JSR 


RESMO 


14F1 


202B13 


JSR 


RESM1 


14F4 


20F716 


JSR 


PLAYDOWN 


14F7 


A932 


LDA 


#50 


14F9 


B5D3 


STA 


BULLC1 


14FB 


C6D5 


DEC 


LIFEC1 


14FD 


D003 


BNE 


DISP 


14FF 


4C7416 


JMP 


GAMEOVER 


1502 


20C510 DISP 


JSR 


CLRPLO 


1505 


20BF10 


JSR 


CLRPL1 


1508 


A90B 


LDA 


#*0B 


150A 


85E2 


STA 


PT1 


150C 


A9E3 


LDA 


#*E3 


150E 


85E0 


STA 


PTO 


1510 


A937 


LDA 


#55 


1512 


85FB 


STA 


SHPOH 


1514 


BDOODO 


STA 


HPOSPO 


1517 


A9C8 


LDA 


#200 


1519 


85F9 


STA 


SHP 1 H 


151B 


BD01DO 


STA 


HP0SF1 


151E 


204D10 


JSR 


SETUPO 


1521 


205E10 


JSR 


SETUP 1 


1524 


202B15 


JSR 


SHOW 


1527 


8D1ED0 RTS9 


STA 


HITCLR 


152A 


60 


RTS 




152B 


20CC15 SHOW 


JSR 


RESTORE 


152E 


202416 


JSR 


PRINT 


1531 


OD 


DFB 


13 


1532 


504C41 


ASC 


"PLAYER 1 


1535 


594552 






153S 


203120 






153B 


3A 






153C 


ODODOD 


DFB 


13,13,13 


153F 


42554C 


ASC 


\ BULLETS 



RESET ALL MISSILES 
PLAYER DOWN 





BULLETS: 
COWBOYS-: =1 



IF COWBOYS=0 THE GAMED VER 



SEE ABOVE 



INIT PLAYERS AGAIN 



SHOW ACTUAL STATUS OF PLAYERS 
RESET COLL 



SWITCH FROM PLAYFIELD TO TEXT 
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1542: 


4C4554 






1545: 


5320BA 






1548: 


A5D2 


LDA 


BULLCO 


154A: 


B5E5 


STA 


DEC1 


154C: 


204616 


JSR 


DECDUT 


154F: 


202416 


JSR 


PRINT 


1552: 


OD 


DFB 


13 


1553: 


434F57 


ASC 


\ COWBOYS :\ 


1556: 


424F59 






1559: 


5320BA 






1 55C : 


A5D4 


LDA 


LIFECO 


155E: 


B5E5 


STA 


DEC1 


1560: 


204616 


JSR 


DECOUT 


1563: 


202416 


JSR 


PRINT 


1566: 


ODODOD 


DFB 


13,13,13 


1569: 


504C41 


ASC 


"PLAYER 2 : 


156C: 


594552 






156F: 


203220 






1572: 


3A 






1573: 


ODODOD 


DFB 


13,13,13 


1576: 


42554C 


ASC 


\ BULLETS :\ 


1579: 


4C4554 






157C: 


5320BA 






157F: 


A5D3 


LDA 


BULLC1 


1581: 


85E5 


STA 


DEC1 


1 583 : 


204616 


JSR 


DECDUT 


1586: 


202416 


JSR 


PRINT 


1589: 


OD 


DFB 


13 


15BA: 


434F57 


ASC 


\C0WB0Y5 :\ 


158D: 


424F59 






1 590 : 


5320BA 






1593: 


A5D5 


LDA 


LIFEC1 


1595: 


B5E5 


STA 


DEC 1 


1597: 


204616 


JSR 


DECDUT 


159A: 


2024 1 6 


JSR 


PRINT 


159D: 


0D8D 


DFB 


13, 141 


159F: 


200016 


JSR 


STRTWAIT 


15A2: 


A97D 


LDA 


#*7D 


15A4: 


20A4F6 


JSR 


COUT 


15A7: 


20DD 1 6 


JSR 


PLAYF 


15AA: 


A93B 


LDA 


#*3B 


15AC: 


8DC002 


STA 


PCOLRO 


15AF: 


A9BA 


LDA 


#*8A 


15B1: 


8DC102 


STA 


PC0LR1 


15B4: 


A98C 


LDA 


#$ac 


15B6: 


8DC602 


STA 


PFC0L2 


15B9: 


A91F 


LDA 


#«1F 


15BB: 


BDC802 


STA 


PFCOL4 


15BE: 


A9CC 


LDA 


#*CC 


1 SCO : 


8DC502 


STA 


PFCDL 1 


15C3: 


A903 


LDA 


#3 


15C5: 


8D1DD0 


STA 


53277 


15C8: 


8D1ED0 


STA 


HITCLR 


1 5CB : 


60 


RTS 




15CC: 


A900 RESTORE 


LDA 


#0 


15CE: 


BD1DD0 


STA 


53277 


15D1: 


BDC602 


STA 


PFC0L2 


15D4: 


8DC102 


STA 


PCDLR1 


15D7: 


BDC002 


STA 


PCOLRO 



CLEAR SCREEN SETUP PLAYF. 



INIT COLORS AMD START DMA 
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15DA: 


8DC802 




STA 


PFC0L4 


15DD: 


A90A 




LDA 


tt$0A 


15DF: 


8DC502 




STA 


PFCDL1 


15E2: 


A900 




LDA 


#0 


15E4: 


SD2F02 




STA 


SDMCTL 


15E7: 


A559 




LDA 


*59 


15E9: 


8D3102 




STA 


DLISTH 


15EC: 


A920 




LDA 


#*20 


15EE; 


8D3002 




STA 


DLISTL 


15F1 : 


A5D6 




LDA 


SPMBASE 


15F3: 


8D07D4 




STA 


PMBASE 


15F6: 


A93E 




LDA 


#*3E 


15FB: 


8D2F02 




STA 


SDMCTL 


15FB: 


A97D 




LDA 


#*7D 


15FD: 


4C6B16 




J MP 


CQUTO 


1600: 


20C816 


STRTWAIT 


JSR 


SPACE 


1603; 


202416 




JSR 


PR I NT 


1606: 


285452 




ASC 


/ (TRIGGER) / 


1609: 


494747 








160C: 


455229 








160F: 


8D 




DFB 


141 


1610: 


20 1 B 1 6 


STR'TWTl 


JSR 


WAIT01 


1613: 


AD8402 


WAIT10 


LDA 


STRIGO 


1616: 


2D8502 




AND 


STRIG1 


1619: 


D0F8 




BNE 


WAIT10 


161B: 


AD8402 


WAIT01 


LDA 


STRIGO 


161E: 


2D8502 




AND 


STRIG1 


1621: 


F0F8 




BEQ 


WAIT01 


1623: 


60 




RTS 




1624: 


68 


PRINT 


PLA 




1625: 


85E4 




STA 


PTX 


1627: 


68 




PLA 




162B: 


B5E5 




STA 


PTX + 1 


162A: 


A200 




LDX 


#0 


162C: 


E6E4 


LDDP23 


INC 


PTX 


162E: 


D002 




BNE 


*+4 


1630: 


E6E5 




IMC 


PTX + 1 


1632: 


A1E4 




LDA 


(PTX, X) 


1634: 


297F 




AND 


#*7F 


1 636 : 


206B16 




JSP 


CQUTO 


1639: 


A200 




LDX 


#0 


163B: 


A1E4 




LDA 


(PTX, X) 


163D: 


10ED 




BPL 


L00P23 


163F: 


A5E5 




LDA 


PTX+1 


1641 : 


48 




PHA 




1642: 


A5E4 




LDA 


PTX 


1644: 


48 




PHA 




1645: 


60 




RTS 





RESET COLORS 
SET TEXT COLOR 
DMA CONTROL OFF 

SWITCH DISP. L. TO GR.O 

I REALLY DON'T KNOW BUT IT WORKS 

DMA CONTROLON 

RTS VIA CLEAR SCREEN 



WAIT FOR NO TRIGGER 



WAIT FOR TRIGGER 



WAIT FOR NO TRIGGER 

RESULT: WAIT FOR TRIGGER EDGE 



THE VERY PRINT ROUTINE VIA STACK 



VERY ONE BYTE TO DECIMAL ROUTINE: 



1646: A001 DECOUT LDY #1 

1648: A230 DECDUTO LDX "0 

164A: 38 DEC0UT1 SEC 

164B: A5E5 LDA DEC1 

164D: F96916 SEC DECTAB,Y 
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1650 


9005 




BCC 


DECDUT3 


1652 


S5E5 




STA 


DEC1 


1654 


E8 




INX 




1 655 


D0F3 




BNE 


DEC0UT1 


1657 


8A 


DEC0UT3 


TXA 




1658 


84E4 




STY 


PTX 


165A 


206B16 




JSR 


COUTO 


165D 


A4E4 




LDY 


PTX 


165F 


88 




DEY 




1660 


10E6 




BPL 


DECOUTO 


1662 


A5E5 




LDA 


DEC1 


1664 


0930 




ORA 


' 


1666 


4C6B16 




JMP 


COUTO 


166? 


OA 


DECTAB 


DFB 


10 


166A 


64 




DFB 


100 


166B 


C90D 


COUTO 


CMP 


#13 


166D 


D002 




BNE 


*+4 


166F 


A99B 




LDA 


#*9B 


1671 


4CA4F6 




JMP 


COUT 


1674 


205813 


GAMEOVER 


JSR 


RSOUNDO 


1677 


208013 




JSR 


RS0UND1 


167A 


20CC15 




JSR 


RESTORE 


167D 


202416 




JSR 


PRINT 


1680 


0D0D0D 




DFB 


13, 13, 13, 13 


1683 


ODODOD 








1686 


0D8D 








1688 


20C816 




JSR 


SPACE 


168B 


2024 1 6 




JSR 


PRINT 


168E 


47414D 




ASC 


/GAME OVER/ 


1691 


45204F 








1694 


564552 








1697 


0D8D 




DFB 


13, 141 


1699 


20CB16 




JSR 


SPACE 


169C 


202416 




JSR 


PRINT 


169F 


504C41 




ASC 


\PLAYER \ 


16A2 


594552 








16A5 


AO 








16A6 


24D1 




BIT 


WINFL 


16A8 


1004 




BPL 


PLONE 


16AA 


A932 




LDA 


7 2 


16AC 


D002 




BNE 


NUMOUT A.T 


16AE 


A931 


PLONE 


LDA 


' 1 


16B0 


20A4F6 


NUMOUT 


JSR 


COUT 


1683 


202416 




JSR 


PRINT 


16B6 


205749 




ASC 


/ WINS! ! ! / 


16B9 


4E5321 








16BC 


2121 








16BE 


ODODOD 




DFB 


13, 13, 13, 14 


16C1 


BD 








16C2 


200016 




JSR 


STRTWAIT 


16C5 


4CAC13 




JMP 


INIT 


16CB 


202416 


SPACE 


JSR 


PRINT 


16CB 


202020 




ASC 


\ 



IF CR THEN EOL ASCII TO ATASCII 



RESET NOISE 
RESTORE DISP. 



LIST TO GR.O 



IF WINFL THEN TWO ELSE ONE 



ALWAYS 



WAIT TRIGGER EDGE 
RTS VIA INIT 
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16D1 


202020 


16D4 


202020 


16D7 


202020 


16DA 


20A0 


16DC 


60 



RTS 



16DD: A900 



16DF: 
16E2: 
16E4: 
16E7: 
16E9: 
16EC: 
16EE: 
16F1: 
16F3: 
16F6: 

16F7 
16FA 
16FD 
16FF 
1701 
1703 
1 705 
1708 
170 A 
170D 
170F 
1712 
1714 
1717 
1719 
171B 
171D 
1720 
1722 
1723 
1725 



BD2F02 

A99B 

8D3002 

A91F 

BD3102 

A5D6 

BD07D4 

A93E 

BD2F02 

60 

AD04D0 

0D05D0 

2904 

F026 

24D1 

300A 

20BF10 

A982 

BD01D0 

DOOB 

20C510 

A9B2 

BDOODO 

A9B0 

B5E4 

A002 

B9D510 

91E4 

88 

10FB 

302C 



PLAYF 


LDA 


#0 


* 








STA 


SDMCTL 




LDA 


#*98 




STA 


DLISTL 




LDA 


#$1F 




STA 


DLISTH 




LDA 


SPMBASE 




STA 


PMBASE 




LDA 


#*3E 




STA 


SDMCTL 




RTS 




PLAYDOWN 


LDA 


POPF 




DRA 


P1PF 



SET DISPL. POINTER TO GR.7 
SET DMA CONTROL 



AND #*04 

BED NODRUNK 

BIT WINFL 

BMI DRUNK 1 

JSR CLRPL1 

LDA #130 

STA HP0SP1 

BNE DRUNK A.T. 
DRUNK 1 JSR CLRPLO 

LDA #130 

STA HPOSPO 
DRUNK LDA #128 

STA PTX 

LDY #2 
DRNKLOOP LDA B0DYTAB1,Y 

STA (PTX),Y 

DEY 

BPL DRNKLOOP 

BMI TRIGWAIT A.T. ALWAYS 



IF NO SCOLL WITH SEA THEN DOWN 



WHO WAS THE WINNER 



PUT HAT IN SEA 



1727: 
1729: 
172B: 
172E: 
1731: 



24D1 NODRUNK 
3006 
20 AD 10 
4C3417 



BIT WINFL 

BMI PLAYDWN1 

JSR M0VP1X 

JMP PLAYDWN 



20B610 PLAYDWN 1 JSR MOVPOX 



AGAIN WHO WAS THE WINNER 
MOVE POINTER- 
LETS GO DOWN 



VERY DOWN ROUTINE 



1734: 


A212 


PLAYDWN 


LDX 


#18 


1736: 


C6E4 




DEC 


PTX 


173B: 


A014 


DWNL00P3 


LDY 


#20 


173A: 


B1E4 


DWNLOOP 


LDA 


(PTX) , Y 


173C: 


CB 




INY 




173D: 


91E4 




STA 


(PTX) , Y 


1 73F : 


88 




DEY 




1740: 


8B 




DEY 




1741 : 


10F7 




BPL 


DWNLOOP 



PLAYER ONE LINE SCROLLED 
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1743: 


AG 1 




LDY 


#16 


1745: 


A9FF 


DWNLOOF'2 


LDA 


#255 


1747: 


85FB 




STA 


SHPOH 


1749: 


C6FB 


DWNL0DP1 


DEC 


SHPOH 


174B: 


DOFC 




BNE 


DWNL00P1 


174D: 


88 




DEY 




174E: 


D0F5 




BNE 


DWNL00P2 


1750: 


CA 




DEX 




1751: 


DOES 




BNE 


DWNL00P3 


1753: 


201016 


TRIGWAIT 


JSR 


STRTWT1 


1756: 


4CCB10 




J MP 


CLRPLX 



SLOW DOWN SCROLLING 

FLAYER NOT YET TOTALLY DOWN 
WAIT TRIGGER 
RTS VIA CLR 



PHYSICAL ENDADDRESS: *AF43 



*** NO WARNINGS 



COUT 


$F6A4 


PRIOR 


*026F 




CONSOL 


$D01F 


HITCLR 


*D01E 




DLISTL 


S0230 


DLISTH 


$0231 




PFCOLO 


S02C4 


PFCOL 1 


*02C5 




PFC0L2 


*02C6 


PFC0L3 


*02C7 


UNUSED 


PFC0L4 


$02C8 


PCOLRO 


*02C0 




PC0LR1 


*02C1 


SDMCTL 


*022F 




AUDF1 


$D200 


AUDC1 


*D201 




AUDF2 


*D202 


AUDC2 


*D203 




HPOSMO 


*0OO4 


HP0SM1 


*D005 




HPOSPO 


*DOO0 


HP0SP1 


*D001 




MOPF 


ItiDOOO 


MOPL 


$D0OB 




M1PF 


SD001 


Ml PL 


4D009 




POPF 


*D004 


POPL 


*DOOC 


UNUSED 


P1PF 


*D005 


P 1 PL 


*DOOD 


UNUSED 


STICKO 


$0278 


ST I CK 1 


$0279 




STRIGO 


*0284 


STRIG1 


$0285 




DEC1 


*E5 


WINFL 


$D1 




BULLCO 


*D2 


BULLC1 


*D3 




LIFECO 


*D4 


LIFEC1 


$D5 




SPMBASE 


*D6 


LASTFL 


$D7 




SWTCHFL 


*D8 


LEGXFL 


*D9 




LEGOFL 


*DA 


LEG1FL 


*DB 




LEGCO 


*DC 


LEGC1 


*DD 




SCOUNTO 


*DE 


SC0UNT1 


*DF 




PTO 


SEO 


PI 1 


$E2 




PTX 


$E4 


MPTO 


SE6 




MPT1 


*EB 


MOCOUNT 


*EA 




Ml COUNT 


*EB 


SONDOFL 


*ED 




S0ND1FL 


$EE 


MOX 


$EF 




MIX 


*F0 


COUNTO 


*F1 




COUNT 1 


$F3 


JUMP 


*F5 




SHPOH 


*F8 


SHP1H 


*F9 




MOFLS 


*FA 


I11FLB 


SFB 




MOVMOFL 


«FC 


M0VM1FL 


SFD 




SAUDF1 


*FE 


SAUDF2 


*FF 




MEMSIZE 


*6A 


PMBASE 


*D407 




MASKO 


*03 


MASKO 1 


SFC 




MASK1 


*0C 


MASK 1 1 


*F3 




START 


*1016 UNUSED 


$ 1 032 




SETUPO 


S104D 


OTHER 1 


S 1 05B 




SETUP 1 


*105E 


0THER2 


*106C 




SETUPX1 


»106F 


L00P3 


$1073 




LEG2 


H107C 


STORE 


$107F 
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L00P31 


$ 1 085 


LQ0P031 


$1092 


STORED 1 


$109E 


MOVP1X 


$ 1 OAD 


CLRPL1 


$10BF 


CLRPLX 


$10CB 


BODYTABl 


* 1 0D5 


LEGTAB2 


$10EA 


LEBTAB21 


* 1 OFF 


MOVPO 


$110D 


MOVP1 


$1147 


J MPT ABO 


$1181 


UPO 


$11A1 


DOWNO 


$11 AF 


RIGHTO 


$1 1BD 


LEFTO 


$11CA 


URO 


$1 1D7 


DRO 


$1 1E3 


UP1 


$1 1EF 


DOWNl 


$1 1FD 


RIGHT1 


$120B 


LEFT1 


$1218 


UR1 


$1225 


DR1 


$1231 


COMPARE 


$ 1 23D 


FOUND 


$1249 


CHCKTRIG 


$1256 


CTRGRTS 


$126E 


STORE 1 


$128F 


DECR 


$12BB 


RTS3 


$12C2 


MOVM 1 


$12D7 


MOVM11 


$1304 


ST0RE4 


$1325 


RESM1 


$132B 


RSOUNDO 


$1358 


NQSONDO 


$1367 


SWITCH 


$13BF 


I NIT 


$13AC 


LOOP 1 1 


$1444 


NOENDO 


$14AF 


NOEND 1 


$14E2 


RTS9 


$1527 


RESTORE 


$15CC 


STRTWT1 


$161 


WAITOl 


$161B 


L00P23 


$162C 


DECOUTO 


$1648 


DEC0UT3 


$1657 


COUTO 


$166B 


PLONE 


$16AE 


SPACE 


$16CB 
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APPENDIX 



A. Important addresses 

1. Color and luminance of background: 712 

Color: 0—240 in steps of 16 (grey, gold, orange, red-orange, 
pink, purple, purple-blue, blue, blue, light-blue, turquoise, 
green-blue, green, yellow-green, orange-green, light-orange) 
luminance: (black) — 15 (white) 

example: POKE 712,16+8 produces a golden background of 
medium luminance 

2. color and luminance of playfield : 708 

3. color and luminance of playfield I : 709 

4. color and luminance of playfield 2 : 710 

5. color and luminance of playfield 3 :711 

6. color and luminance of player-missile : 704 

7. color and luminance of player-missile 1 : 705 

8. color and luminance of player-missile 2 : 706 

9. color and luminance of player-missile 3 : 707 

10. graphic control : 53277 
example: POKE 53277,3 

enables player-missile graphics 

11. collision clear : 53278 

12. horizontal position of missile : 53252 

13. horizontal position of missile 1 : 53253 

14. horizontal position of missile 2 : 53254 

15. horizontal position of missile 3 : 53255 

16. horizontal position of player : 53248 

17. horizontal position of player 1 : 53249 

18. horizontal position of player 2 : 53250 

19. horizontal position of player 3 : 53251 

20. missile to playfield collisions : 53248 

21 . missile to player collisions : 53256 

22. missile 1 to playfield collisions : 53249 

23. missile 1 to player collisions : 53257 

24. missile 2 to playfield collisions : 53250 

25. missile 2 to player collisions : 53258 

26. missile 3 to playfield collisions : 53251 

27. missile 3 to player collisions : 53259 

28. player to playfield collisions : 53252 

29. player to player collisions : 53260 
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30. player 1 to playfield collisions 

31 . player 1 to player collisions 

32. player 2 to playfield collisions 

33. player 2 to player collisions 

34. player 3 to playfield collisions 

35. player 3 to player collisions 

36. player missile base address 

37. priority select 



53253 
53261 
53254 
53262 
53255 
53263 
54279 
623 



example: POKE 623,1 selects the following ranking: 

Player 0, player 1, player 2, player 3, playfield 0, 
playfield 1 , playfield 2, playfield 3, background 

or POKE 623,8 selects the following rankings 

PFO, PF 1 , P0, P1 , P2, P3, PF2, PF3, BAK 

38. random number generator : 53770 

39. size for all missiles : 53260 
example: POKE 53260,1 makes missile twice normal size 

or: POKE 53260,255 makes all four missiles four 
times normal 1 . 

: 53256 
twice 
four times normal 



size 



40. size of player 
example: POKE 53256,1 

or: POKE 53256,3 

41. size of player 1: 53257 

42. size of player 2: 53258 

43. size of player 3: 53259 

B. How to create shapes 

Each player is eight dots wide. Each dot can 

separately by poking different values into the 

memory. The far left dot has the highest and the far right dot has 

the lowest value. 

Values of the dots. 



be turned on 
player missile 



128 


69 


32 


16 


8 


4 


2 


1 



















Add the values of all dots you want to turn on together and poke 
the sum into memory. 
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Example: you want to turn on all dots: 

1 28+64+32+ 1 6+8+4+2+ 1 =255 

POKE PMBAS + Y, 255 will create a bar. 



1 . cowboy 



2. other cowboy 
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3. bomber 




19 

255 

16 



4. other bomber 



5. rocket 
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best looking sizes: normal size for no. 5 

twice normal size for no. 1 , 2, 3,4, 6 

C. Special effects 

1. Explosion 

change very quickly color background 

example: poke random numbers into color register of 

background 
10 POKE 712, PEEK (53770): GOTO 10 

In addition, sound may be added. 

2. earthquake: 

move the whole screen a little bit in a horizontal direction 
example: 

10A=PEEK (560) = 256 * PEEK (561) 
10 POKE A+4, 64+PEEK (53770) / 200 
30 GOTO 20 
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ANTIC 



To use the following programs on ATARIs with less than 48K RAM, please refer to 
"Important Notice" at the beginning of the book. 



The video processor "ANTIC" and the ATARI 400/800 computer 

The ATARI 400/800 computer uses a separate microprocessor, 
called "ANTIC", for generating a picture on the TV screen. This 
processor uses it's own control program, called the "display list". 
To understand the interaction between the microprocessor and 
the TV screen, one must understand how a picture is created on 
a TV screen. Fig. 1 shows this. 




Z 

Fig. 1 

An electron beam is deflected from point A to point B. As it 
sweeps across the screen, it's intensity changes, changing the 
brightness on the screen. 

At point B, the beam is darkened and brought back to C. There 
it is brightened and starts sweeping again, this time to point D. 
It continues in the same way until it reaches point Z. It is then 
darkened and returned to point A, and a new picture begins. 
Between A and Z, the beam sweeps the screen 262 times. Nor- 
mally, there are 525 lines on a TV screen, but only one half- 
picture, or 262 lines, is drawn at once. 

Most TV sets are overscanned. That is, the picture is larger than 
the screen. Therefore the computer uses only 192 lines for one 
picture. 
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ANTIC now works synchronously with the generation of the TV 
picture, using it's own control program, the display list. Now we 
will take a look at the display list. The program in fig. 2 gives us 
a printout of this. 

10 A=PEEK(560) +256* PEEK (56.1 ) 

15 V=l 

17 H=8 

20 FOR I=A TO A+31 

22 POSITION H,V 

24 V=V+1:IF V>16 THEN V=lsH=20 

30 L.PRINT I J " ";PEEK(I> 

40 NEXT I 



39968 

39969 

39970 

39971 

39972 

39973 

39974 

39975 

39976 

39977 

39978 

39979 

39980 

39981 

39982 

39983 



112 

112 

112 

66 

64 

156 



39984 

39985 

39986 

39987 

39988 

59989 

59990 

59991 

39992 

39993 

9994 

9995 

9996 

9997 

39998 

39999 



t>3 



156 



Fig. 2 



The memory locations 560 (S230) and 561 (S231) contain the 
starting address of the display list. This is the decimal address 
39968 (S9C20). We make a printout of the next 32 locations. 
This is also shown in fig. 2. 

Now, what do these numbers mean? To answer this question, we 
need a programming sheet for the ANTIC. This is shown in fig. 3. 
Unfortunately, these are all hex numbers, so we have to change 
our decimal addresses to hex. 1 1 2 (S 70) means that we start out 
with 3*8, or 24, empty lines. The next command is 66 (S42). 
On the left side of our programming sheet, we find CHR(40,2,8). 
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This means that we have 40 characters across the screen, with 2 
colors, and the height of one character is 8 TV lines. On the top 
is "LD MEM SCAN". With this command, the starting address 
of the next buffer has also been loaded. This is the following two 
bytes: 64 (S 40) and 192 (S8C). This is the address S8C40(?). 
The lower address byte comes first, followed by the higher address 
byte, as per 6502 standards. 89C40 is the decimal address 40000. 
The next 23 lines all contain the value 02. This means that CHR 
(40,2,8) is used for the whole picture. The last command is 65 
(S41). This is a jump instruction. The address of the JUMP is 32 
(S 20), the starting address of the display list. But this jump is not 
executed immediately. The processor waits for a vertical gap, 
when the beam moves from point Z back to point A, as in fig.1. 
Now let's look at how many TV lines we have. We have 3*8, or 
24, blank lines and 24*8, or 192, lines with text. 

We will now change the display list. First we will type in SHIFT- 
CLEAR. This clears the screen. Next we poke 39986,1 12. 
This changes the text line to 8 empty TV lines. If we list our 
program, this line is not used for text. By hitting the system reset 
key or by poking 39986,02, we reset the display list. 

Let's do another trial. Now we poke 39985,07. A black line 
appears on screen, twice as high as a normal text line. When we 
list our program, the letters in this line are also twice as high as 
normal. 07 means CHR(20,5,16); that is, 20 characters in one line 
with 5 colors, using 16 TV lines. But the following text is dis- 
placed. 

We have only 20 characters on this line. The remaining characters 
are printed on the next line. We get rid of this when we POKE 
39984,07. Now we have two lines of text, twice as high as normal, 
in the middle of our TV screen. 

In our next experiment with the display list, we change the star- 
ting address of the text buffer by poking 39973,00. On the screen, 
we now have only garbage. We see different types of graphics 
characters, some of them changing. These are the contents of 
memory locations, altered by the program. If we hit a few keys, 
some of the characters will change, but nothing else happens. By 
using the system reset key, we get our normal screen back. 
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The memory location 39972 contains the lower byte of the 
starting address. By poking POKE 39972,65, we shift the text 
one space to the left, and by poking POKE 39972,62, two places 
to the right. 



1 00 


POKE 39973,0 


105 


FOR J -200 TO 255 


1 1 


FOR 1=0 TO 255 


120 


POKE 39972, I 


130 


NEXT I 


140 


POKE 39973, J 


150 


NEXT J 




Fig. 4 



The program in fig. 4 shifts the starting address of the text buffer 
from S 00 through S FF and from S C800 through FFFF. 
Different wandering patterns are created on the screen. 

For the next task, we will make one text line on the screen dis- 
appear. We first erase the screen with SHIFT-CLEAR, then we list 
the program from fig. 4. If we POKE 39978,34, line number 130 
disappears. With POKE 39978,02 it re-appears. In the display list, 
we have changed the command S02 to S22. This means vertical 
scrolling (VSCROL). Line 130 is hidden behind line 120. 

The program in fig. 5 changes the screen into 12 lines of text 
with 20 characters each. 



39971,71 

=39974 TO 39985 

1,7 

I 

39986,65 

39987 , 32 : POKE 39988 , 1 56 

CHR$(125) 

"THIS TEXT IS" 

"PRINTED ON THE SCREEN" " 

"IN CAPITAL LETTERS" 

Fig. 5 



By doing this, we define a new display list by poking the 
appropiate values into the memory locations. 

100 



1 00 


POKE 


110 


FOR I 


120 


POKE 


125 


NEXT 


130 


POKE 


140 


POKE 


150 


PRINT 


160 


PRINT 


170 


PRINT 


180 


PRINT 



Display List Interrupts 
and the ATARI 



Display List Interrupts and the ATARI 

When we have worked with the display list of the ANTIC, we have 
only used the commands in the left half of the lable, shown in fig. 
1. The command in the right half of this table starts on display 
list interrupt (DLI). Before we deal with these DLI's, we will 
examine what an interrupt is and what happens, when an interrupt 
occurs. An interupt is a break in a running program by an external 
signal. When this signal reaches the CPU, the command, which is 
being executed is finished. Then the address in the program counter 
and the content of the status register are placed into the stack. 
Then the CPU performs an indirect jump to the interrupt service 
routine. 

There are two different kinds of interrupts with a 6502 CPU. 
There is the NMI, the non-maskable interrupt and the IRQ, the 
interrupt request. The IRQ can be controlled by program. If the 
interrupt bit in the status registers are not zero, an IRQ is not 
accepted (or vice-versa, a zero lets the CPU acknowledges an 
interrupt). This bit in the status-register is set or reset by the 
assembler commands SEI or CLI. 

The second possibility to interrupt a program in the NMI. This 
interrupt cannot be controlled by program and is always exe- 
cuted. 

The starting address for the interrupt service routines are in 
location S FFFE, $ FFFF for the IRQ and S FFFA, S FFFB 
for the NMI. These are memory locations in ROM which cannot 
be altered. 

The interrupt service routine starts in ROM, but then it does an 
indirect jump over a memory location in RAM. This is the address 
S2000, S201 hex or 512, 513 decimal for the display list inter- 
rupts. 

If you want to use this interrupt, this memory location must con- 
tain the starting address of your interrupt service routine. You 
return to the normal program by a RTI instruction. 
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PHA 


48 


LDA#DE 


A9DE 


ST A WSYNC 


80 0A DY 


STAC0L0R2 


8D 18 DO 


PLA 


68 



In our first example we will use the DLI to display the upper and 
lower half of the screen in two different colors. Therefore we 
change the content of a color register. The blue hue of the screen 
in graphics mode is determined by the content of color register 2. 
The following program in machine code changes the content of 
the color register. It is written as an interrupt service routine. 

(A) -+ stack 
DE means bright green 
see text 

DE -+ color rey 2 
get content of accu back from 
stack 
RTI 40 ; go back to normal program 

First the content of the accumulator is saved on the stack because 
it is changed in this program. The command STA WSYNC has a 
special meaning. While working on this interrupt, the CPU needs 
33 machine cycles until it starts our program. In this time the 
electron beam has nearly crossed the screen. If the content of the 
color register is changed now, the color will change from blue to 
green. But the duration from the start of the interrupt and the 
change of the color register is not always the same. There are 
changes of a few micro seconds. The border of the color change 
will jiggle slightly back and forth. Using the STA WSYNC 
command, the 6502 CPU is set to wait until a horizontal sync 
occurs. Then the color is changed with STA COLOR2. The code 
of the color is written directly to the color register of the CTIA 
and not to the RAM location. 

If this is done, the color would be changed on the next vertical 
blanking and not midway thru the screen's cycle. 

The color change shows the next program: 

10 DLI=PEEK (560) +256 * PEEK (561 ) 

20 POKE DLI +16, 130 

30 FOR 1=0 TO 10 

40 READ As POKE 1536+1 , A: NEXT I 

50 DATA 72 , 1 69 , 222 ,141,1 ,212 

60 DATA 141,24, 208 , 1 04 , 64 

70 POKE 512,0; POKE 513,6 

00 POKE 54286, 192 
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In line 10 the beginning of the display list is encounterd and then 
a byte of this list is changed from S02 to S82 = 130. That means 
40 characters in one line, two colors, height equal to 8 TV lines 
and starting an interrupt. (See figure). 



39968 


112 


39984 


39969 


112 


39985 


39970 


112 


39986 


3997 1 


66 


39987 


^,9972 


64 


39988 


39973 


156 


39989 


39974 


-""> 


39990 


39975 


*-> 


39991 


39976 


o 


39992 


39977 


*"J 


39993 


39978 


o 


39994 


39979 


*T> 


39995 


39980 


O 


39996 


39981 


O 


39997 


39982 


O 


39998 


39983 


o 


39999 



t)D 
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The machine language program is poked into memory locations 

starting at S600. This address is stored in S200, 201 (512, 513 

decimal). Then the interrupt is enabled by writing a SC8 = 192 to 

the interrupt enable register of the CTIA at location S D40E = 

54286. 

After starting the program we see a sharp border between blue 

and green. 

If we change line 50 to 

50 DATA 72, 169, 222, 234, 234, 234 

we replace the STA WSYNC command with three NOP's. Now, 
the border between blue and green is jiggling on the right side of 
the screen. 

In our next example we will use the display list interrupt several 
times. But the interrupt service routines mustn't be very long. The 
change of the color or whatever else you want to do must be 
finished when the electron beam starts the next TV line. For 
showing multiple DLI's we use our program "MONSTER" on page 
1 14. We change lines 400 to 490 as it is shown in the next figure. 
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50 PRINT CHR$<125) 

60 POSITION 10,2 

70 PRINT "ONE MOMENT PLEASE' 

100 FOR 1=0 TO 1023 



110 


POKE 1 6384+ I , PEEK ( 57344+ I ) 


115 


POKE 1 7408+ I , PEEK ( 57344+ I ) 


120 


NEXT I 


200 


RESTORE 


205 


FOR 1=16648 TO 16743 


210 


READ A 


220 


POKE I, A 


230 


NEXT I 


250 


FOR 1=17672 TO 17767 


260 


READ A 


270 


POKE I , A 


2S0 


NEXT I 


400 


PRINT CHR*(125) 


402 


POKE 756,64 


405 


FOR Y=l TO 17 STEP 4 


410 


FOR X=3 TO 35 STEP 5 


420 


POSITION X,Y 


430 


PRINT "ABCD" 


440 


POSITION X,Y+1 


450 


PRINT "EFGH" 


460 


POSITION X,Y+2 


470 


PRINT "IJKL" 


475 


NEXT X 


477 


NEXT Y 


500 


POKE 756,68 


510 


FOR 1=1 TO 50: NEXT I 


520 


POKE 756,64 


530 


FOR 1 = 1 TO 50s NEXT I 


540 


GOTO 500 


1 000 DATA , 1 , 96 , 48 , 24 , i 3 , 3 , 7 


1005 DATA 0,129,139,63,127,255,255,135 


1010 DATA 0,129,130,252,254,255,255,225 


1015 DATA 0,128,6,12,24,176,161,224 


1020 DATA 7,15,15,15,7,7,3,1 


1025 DATA 3,3,3,7,207,255,255,255 


1030 DATA 192,192,192,224,243,255,255,255 


103! 


5 DATA 224,240,240,240,224,224,192,128 


1040 DATA 1 , 1,7, 15., 15,3,0,0 


1045 DATA 255,159,224,248,252,240,0,0 
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1 050 
1055 
2000 
2005 
20 1 
2015 
2020 
2025 
2030 

'-« j-\ ~r c=- 

2040 
2045 
2050 

nAtrcr 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



2 55, 249,7,31, 63, 31, 0,0 

128, 128,, 224, 240, 240, 192,0,0 
, 1,96,48,24, 13,3,7 
O, 129, 139,63, 127,255,255, 135 
0, 129, 130,252,254,255,255,225 
O, 128,6, 12,24, 176, 161,224 
7, 15, 15, 15,7,7,3, 1 
5,7,207,255,0,0 



192 
224 
1, 1 
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192,192, 224 , 243 , 255 , , 

240 , 240 , 240 , 224 , 224 , 1 92 , 1 28 

7 , 15, 15, 3,0,0 
, 159,224,248,252,240,0,0 

249,7,31,63,31,0,0 
, 1 28 , 224 , 240 , 240 , 1 92 , , 



When we run this program, we have 5 rows of 7 monsters, opening 
and closing their mouth. Using the DLI, every row will have a 
different color and the mouth will be open or closed. We use 4 
interface service routines of the following form: 



PHA 




48 


LDA 


#COLORNR 


A9DE 


STA 


WSYNC 


8D OA D4 


STA 


C0L0R2 


8D 18 DO 


LDA 


#CHARSET 


A9 44 


STA 


CABAS 


8D 09 D4 


LDA 


#ADRELO 


A9 15 


STA 


DPIV 


8D 00 02 


PLA 




68 


RTI 




40 



First, we load the accumulator with a color code wait for WSYNC 
and change the color register. Then we change the base address 
of the character set and set a new start address for the next inter- 
rupt service routine. 

This is exactly the same routine, except for the colorcode, the 
base address of the character set and the starting address for the 
third service routine. 

In the fourth service routine the starting address is reset to the 
beginning of the first routine. 
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The program shows the next figure. 

50 PRINT CHR$<125> 

60 POSITION 10,2 

70 PRINT "ONE MOMENT PLEASE" 

100 FOR 1=0 TO 1023 

1 1 POKE 1 6384+ I , PEEK ( 57344+ I ) 

115 POKE 17408+1, PEEK (57344+ I) 

120 NEXT I 

200 RESTORE 

205 FOR 1=16648 TO 16743 

210 READ A 

220 POKE I, A 

230 NEXT I 

250 FOR 1=17672 TO 17767 

260 READ A 

270 POKE I, A 

280 NEXT I 

400 PRINT CHR$(125) 

402 POKE 756,64 

405 FOR Y=l TO 17 STEP 4 

410 FOR X=3 TO 35 STEP 5 

420 POSITION X,Y 

430 PRINT "ABCD" 

440 POSITION X,Y+1 

450 PRINT "EFGH" 

460 POSITION X,Y+2 

470 PRINT "IJKL" 

475 NEXT X 

477 NEXT Y 

500 GOSUB 700 

510 GOTO 510 

520 POKE 756,64 

530 FOR 1 = 1 TO 50s NEXT I 

540 GOTO 500 

700 DPLS=PEEK (560) +256* PEEK ( 561 ) 

705 POKE DPLS+8, 130 

710 POKE DPLS+12, 130 

714 POKE DPLS+16,130 

718 POKE DPLS+20, 130 

720 FOR 1=0 TO 83 

730 READ As POKE 1 536+1 , As NEXT I 

770 POKE 512,0s POKE 513,6 

780 POKE 54286, 192 
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790 

1000 

1005 

1 1 

1015 

1020 

1 025 

1030 

1035 

1040 

1045 

1050 

1055 

2000 

2005 

2010 

2015 

2020 

2025 

2030 

2035 

2040 

2045 

2050 

2055 

3000 

3005 

30.10 

3015 

3020 

-:*- j-v »-i er 

.jI.Uj 

3030 
3035 
3040 
3045 
3050 
3060 
3070 
3080 
3090 
3100 
3 1 1 
3120 



RETURN 
DATA 0,1,96, 48 ,24,13,3, 7 
DATA 0, 129, 139,63, 127,255,255, 135 



DATA 0, 128,6, 12,24, 176, 161,224 
DATA 7,15,15,15,7,7,3,1 
DATA 3,3, 
DATA 192, 192, .1.92 
224, 240, 240 

.1. ![ .1. t\ J \\ .1. <...,' If J. \..: 



224. 

240,224,224, 19: 
3 . . 



DATA 

DATA 

DATA 

DATA 255 , 249 ,7,31,63,31,0, 

DATA 128,128, 224 , 240 ,, 240 , 1 9: . 

DATA ,, 1 , 96 , 48 , 24 , 1 3 , 3 , 7 

DATA ,129,139,63,127, 255 , 255 , 1 35 



128 



O , O 



'~i cr* »••) *-•} rcr .■ 



DATA 
DATA 
DATA 3, 
DATA 19 



O, 128,6, 12,24, 176, 161,224 

~j ■] cr h c -j ir- ~t -■» -j * 



3,7. 

192, 192,224 
240 
3 , 



DATA 224,240,240. 

DATA 1,1,7,15,1: 

DATA 255,159,224,248, 

DATA 255,249,7,31,6: 

DATA 128,1 28 , 224 , 240 , 

REM DATA FOR INTERRUPT ROUTINES 

DATA 72 

DATA 169,222 



O . O 



y 


243,255, 


, 


5 


224,224, 


192 


;i 







■1 


252,240, 


0, 


■) 


3 1,0, 




•f 


240, 192, 


, 
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DATA 


141,10,212 


DATA 


141 ,24, 208 


DATA 


169, 68 



DATA 141,09,212 



DATA 1 69 



DATA 141,00,02 



DATA 104 



DATA 141,24 
DATA 141,09 
DATA 141,00 
DATA 72,, 169 
DATA 141,24 
DATA 141,09 



21 



64 



DATA 72,169,1 20 ,141,10,21: 



208, 169,64 
212, 169, 42 
, 02, 104, 64 
, 180, 141 , 10. 
208, 169, 68 
212, 169,63 
02, 104, 64 



212 
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3130 DATA 72,169,240,141,10,212 

3140 DATA 141,24,208,169,64 

3150 DATA 141,09,212,169,00 

3160 DATA 141, 00 , 02 , 1 04 , 64 

For the first time starts the program, by RUN, then by GOTO 
200. Do not wait each time for the change of the character sets. 
The interrupt service routines are poked into the memory in sub- 
routine 700, the data are stored at line 3000 ff. 

First all monsters are drawn, then, after a short pause, when the 
machine code is loaded, every row of monsters is a different 
color. 

It is very interesting to erase program line 402. You see how the 
text is written to the screen and then changed into the 
monsters. The uppermost row remains unchanged. 

With the display list interrupt, you can divide the screen into 
horizontal parts. But be careful. It is "critical in time" because 
it is a real time problem running parallel with the creating of 
the TV screen. 
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ATARI 400/800 and 
CTIA/GTIA 

Another video processor in the ATARI is the CTIA, which works 
closely with ANTIC. It prepares the signals received from the 
ANTIC for output to the TV set. It adds color, makes the player- 
missile graphics, and detects collisions. There are nine hardware 
registers, four of them used for player-missile graphics; the other 
five, according to the selected text or graphics mode. The 
memory location of these registers are SD016— SD01 A, but they 
are once more available in the RAM locations S2C4— S 2C8 
(decimal 708—712). During every vertical gap, the contents of 
these locations are placed in the locations SD016— SD01 A in 
the CTIA. 

The color itself is determined by a number. With a POKE 712,254, 
the background color is changed to a bright yellow. The program 
in fig. 6 changes the hue of the background. 

10 FOR 1=0 TO 254 STEP 2 

20 POKE 712, I 

30 FOR J=0 TO 25: NEXT J 

40 NEXT I 

Fig. 6 

The upper 4 bits of the content of one color register determine the 
hue; the lower 4 (of which the lowest one is not used), the 
luminance. Bit pattern %0000 is dark, %1110, light. The number 
for the hue can be found in table 9.3 of the ATARI BASIC Hand- 
book. The bit pattern %1101 1110 (S DE or decimal 222) is a 
bright green. If you POKE 710,222 the background behind the 
letters will become this color. 

The program in fig. 7 shows the background in different colors. 

10 FOR 1=240 TO 254 STEP 2 

20 POKE 710,1 

30 FOR J=0 TO 25: NEXT J 

40 NEXT I 

50 FOR 1=254 TO 240 STEP -2 

60 POKE 710, I 

70 FOR J=0 TO 25: NEXT J 
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80 NEXT I 
90 GOTO 10 

Fig. 7 

The luminance of the letters is determined by color register 709. 
You may vary only the luminance, not the color, of the letters. 
If the luminance of the letter and the background are the same, 
then the letter disappears, as shown in the text program (fig. 8). 



5 DIM N*<1) 




10 POKE 710,222 


15 INPUT N$ 




20 FOR 1=0 TO 


14 


30 POKE 709, I 




40 FOR J=0 TO 


50: NEXT 


50 NEXT I 




60 INPUT N$ 




70 POKE 709,0 





Fig. 8 

You can use the color register for many purposes. A red back- 
ground signifies, "pay attention!", or a brightyellow says, "ALL 
IS WELL". The program in fig. 9 demonstrates this. 

5 PRINT CHR$(125) 
7 DIM N*(l) 
10 POSITION 10, 10 
PRINT "K E I N 
INPUT N* 
IF N*<>"M" THEN 
POSITION 10, 10 
PRINT " 

FOR J = l TO 100 
A=PEEK<712) 
POKE 712, PEEK (710) 
710, PEEK < 709) 
709, A 
J 



20 

30 
40 
43 
44 
45 
50 
60 
70 
80 
90 
99 



M EINBEBEN' 



GOTO 100 



AUA 



POKE 
POKE 
NEXT 
END 



100 PRINT CHR$(125) 
110 POSITION 10, 10 
120 PRINT "DAN K E 
130 END 
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The ATARI 400/800 
and its Character Set 



The ATARI 400/800 and its Character Set 

Each character seen on the screen is represented of an 8 by 8 
matrix of little dots. Each dot is represented by one bit in one 
machine word, one byte. Therefore each character uses 8 bytes for 
its representation. The following figure shows the bit pattern for 
the character A. Inside the ATARI, these bit patterns are stored in 
ROM beginning in memory location S E000 = 57344. The first 
character in S E000 until S E007 is the space character. There are 
126 characters coded and stored from S E000 to S E3FF. 



Character Binary Pattern 



Hex. Dec. 











00000000 
000 1 1000 


oc 

18 













24 






00111100 


3C 


60 


ZM~ 


^C 


1100110 


66 


102 


J 


"■" 


1 100 1 10 


66 


102 


■* 


1111110 


7E 


126 


JHT 




1100110 


66 


102 


Trr 




00000000 


00 






Figure 1 



As this character set is in ROM (Read Only Memory) you cannot 
change it But with the ATARI, it is possible, to define your own 
character set. The character set must start at a 1 K page boundary 
like, for example, at S 4000: and the higher address-byte of this 
boundary must be stored in memory location S2F4 = 756. If you 
try PRINT PEEK (756) you get 224 and this is SE0. 
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Now, since we want to play around with this character set, we can 
use the following program to place the character set in RAM, 
where we can change it. 

100 FOR l=0TO 1023 

110 POKE 16384+1, PEEK (57344+ I) 

120 NEXT I 

130 POKE 756,64 

200 FOR 1 = 16684 TO 16655 

210 PRINT PEEK(I) 

220 NEXT I 



Figure 2 
Move character set into hex 4000 



This mini-program also prints the bit pattern for the character A. 
To calculate the starting address of the bit pattern of the character 
A, do the following: 

The space character has the decimal code 32 the character A has 
the decimal code 65; the starting address of the bit pattern for the 
character A is then 

16384 + 33*8= 16648 

In line 130 the page boundary is changed from S E0 to S40 = 64. 
Now the ATARI uses the character set in RAM which is 
changeable. With a POKE 16388,255 we change the space charac- 
ter. After this poke, every space character has a bright line in its 
middle. Only the cursor, the inverted space character, has a dark 
line. 

With POKE 16388,0 we switch back to the normal mode. If we 
change lines 200 until 220 in the above listing into the lines 
shown below, the character A is rotating on a horizontal axis. 
This program can only be stoped by hitting the RESET key. 
After doing this, the address in memory location 756 is the 
starting address of the character set in ROM. 
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200 FOR 1 = 16648 TO 16655 
205 POKE 16655, PEEK(16648) 
210 POKE I— 1, PEEK(1) 
220 NEXT I 
230 GOTO 200 

Figure 3 

You can obtain very different figures by changing the bit pattern 
of a letter. We will show this in our next program MONSTER 
in Figure 5. Figure 4 shows the design of our diminitive monster. 
It is represented by a 4 by 3 matrix of the letters. 

A BCD 

E F G H 

I J K L 

Further we will show how easy it is to change the figure by using 
two different character sets. 




Figure 4 



The bit pattern of each letter is changed and converted to a 
decimal number. These numbers are inserted as DATA statements 
in the program in Figure 5. 

The first character set is defined in the lines 1000 to 1055. 
The second character set (which differs only in the letters F and 
G) is defined in lines 2000 to 2055. In this character set, the two 
last bytes of the letter F and G are set to zero. This results in a 
rectangular open mouth on our monster. 
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The program starts by copying the original character set to S4000 
= 16384 and S4400 = 17403. Then the bit pattern for the letters 
A — L are changed by reading the newly definded values. (Lines 
200 — 280). In line 405, the first character set is chosen. 



100 FOR 1=0 TO 1023 

110 POKE 16384+1, PEEK (57344+ I) 

115 POKE 17408+ I, PEEK (57344+ I) 

120 NEXT I 

200 RESTORE 

205 FOR 1=16648 TO 16743 

210 READ A 

220 POKE I, A 

230 NEXT I 

250 FOR 1=17672 TO 17767 

260 READ A 

270 POKE I, A 

280 NEXT I 

400 X=10:Y=10 

405 POKE 756,64 

410 PRINT CHR*(125) : REM CLEAR SCREEN 

420 POSITION X,Y 

430 PRINT "ABCD" 

440 POSITION X,Y+1 

450 PRINT "EFGH" 

460 POSITION X,Y+2 

470 PRINT "IJKL" 

500 POKE 756,68 

510 FOR 1=1 TO 50: NEXT I 

520 POKE 756,64 

530 FOR 1=1 TO 50: NEXT I 

540 GOTO 500 

1000 DATA 0,1,96,48,24,13,3,7 

1005 DATA 0,129,139,63,127,255,255,1: 

1010 DATA 0,129,130,252,254,255,255,1 

1015 DATA 0, 12B, 6, 12,24, 176, 161,224 

1020 DATA 7,15,15,15,7,7,3,1 

1025 DATA 3,3,3,7,207,255,255,255 



1030 DATA 192,192,192,224, 
1035 DATA 224,240,240,240 
1040 DATA 1,1,7,15,15,3,0 
5, 159,224,248, 
5,249,7,31 ,63, 



1045 DATA 

1050 DATA 

1055 DATA 

2000 DATA 0, 1,96,48, 24. i: 

2005 DATA 0,129,139,63,127,255,255,1: 

2010 DATA 0,129,130,252,254,255,255,; 

2015 DATA 0,128,6,12,24,176,161,224 



12B, 12B, 224,240,240, 192,0,0 
,3,7 



^4^>, ^r.D, zoz 
224,224, 192 

252,240,0,C 

31,0,0 



, 128 



2020 


DATA 


7, 15, 15, 15,7,7,3, 1 




2025 


DATA 


3, 3 


,3,7,207,255,0,0 




2030 


DATA 


192 


192, 192,224 


243,255, 


0,0 


2035 


DATA 


224 


,240,240, 240 


224,224 


192 


2040 


DATA 


1, 1 


7, 15, 15,3,0 







2045 


DATA 


255 


, 159,224, 248 


,252,240 


0,0 


2050 


DATA 


255 


249,7,31,63 


31,0,0 




2055 


DATA 


128 


, 12B,224,240 


,240, 192. 


0,0 








Figure 5 










MONSTER 







:, 128 
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The print statement PRINT "ABCD" in line 430 doesn' t print the 

letter, but the newly defined code. That is the first line of our 

monster. The next lines are printed with the remaining two print 

statements. 

Then in the lines 500 to 540 we switch between two character 

sets following a short delay loop. Our monster opens and closes 

its rectangular mouth. 

We could use a third character set and define the bit pattern for 
the letter G as 

DATA 255, 255, 255, 255, 255, 255, 255, 255 

If we call this character set, our monster closes its left eye. 
As a serious application of this technique, you could think of 
defining the shapes of electronic symbol and use them for the 
design of electronic circuits. 
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BOOKS and 
SOFTWARE 



For ATARI - PET - OSI - APPLE II - 6502 



ATARI BASIC - Learning by 
Using 

This new book is an "Action"- 
Book. You do more than read it. 
Learn the intricacy of ATARI- 
BASIC thorugh the short programs 
which are provided. The 
suggestions challenge you to 
change and write program 
routines. Yes, it's exciting - 
Many of the programs are 
appropriate for beginners as well 
as experienced computer users. 
(Screen Drawings, Special Sounds, 
Keys, Paddles + Joysticks. 
Specialized Screen Routines, 
Graphics and Sound. Peeks and 
Pokes and special stuff ). 
Order-No. 164 S9.95 

Games for the ATARI-Computer 
How to program your own games 
on the ATARI. Complete listings 
in BASIC and Machine Language 
of exciting games. Tricks and 
hints. 

Order-No. 162 $7.95 

ATMONA-1 

Machine Language Monitor for 
the ATARI 400/800. 
This powerful monitor provides 
you with the firmware support 
that you need to get the most 
out of your powerful system. 
ATMONA-1 comes on a bootable 
cassette. No cartridges required. 
Disassemble, Memory Dump HEX 
+ ASCII, (Change Memory 
Locations, Blocktransfer, fill 
memory block, save and load 
machine language programs, start 
mach. Lang. Progr. (Printer 
optional). 

Comes with introductionary 
article on how to program the 
ATARI computer in machine 
language. (Available also in ROM) 
Order-No. 7022 619.95 

ATMONA-2 Suparstepper 

A very powerful Tracer to explore 
the ATARI ROM/RAM area. Stop 
at previously selected address. 
Opcode or operand (cassette). 
Order-No. 7049 S49.95 



The Third Book of Ohio Scientific 

is now available I 

Very important information for 
the OSI system experimenter. 
Interface techniques, system ex- 
pansions, accessories and much 
more (EPROM-Burner. 6522 l/O- 
card with IK RAM, Soundboard, 
EPROM/RAM board), 
Order-No. 159 S7.95 

The Fourth Book of OHIO 

VIP-Book - Very Important 
Programs. Many interesting pro- 
grams for OSI computers. Sorting 
(Binary Tree). Differential Equi- 
tation, Statistics, Astrology, Gas 
Consumption, Games a. s. o. 
Order-No. 160 S9.95 

VIP Package - Above book plus 
a cassette with the programs. 
Order-No. 160 A S19.95 

The Fifth book of Ohio Scientific 

Many exciting programs program- 
ming hints and tricks, Textwriter, 
Debugger for C1P, Games. Utilities 
and much more (polled keyboard) 
Order-No. 161 S7.95 

Invoice Writing Program for OSI- 
C1PMF, C4P. Disk and Cassette. 
8K RAM. 
Order-No. 8234 S29.80 

Mailing List for C1PMF or 
C4PMF 24K RAM 
250 addresses incl. phone number 
and parameters on one 5 1/4 disk) 
Order-No. 8240 $29.80 

8K Microsoft BASIC Reference 
Manual 

Authoritative reference for the 
original Microsoft 4K + 8K 
BASIC developed forALTAIR 
and later computers including 
OSI,PET.TRS-80and VIC. 
Order-No. 141 $9.95 

Expansion Handbook for 6502 
and 6802 

S-44 Card Manual describes all of 
the 4.5 x 6.5 44-pin S-44 cards 
incl. schematics. A MUST for 
every 6502 system user (KIM, 
SYM, AIM, VIC, PET, OSI) 
Order-No. 152 $9.95 



EDITOR/ASSEMBLER for 
ATARI 800, 32K RAM 

Extremely fast and powerful 

Editor/Assembler. (8K Source- 
code in about 5 seconds) Includes 
ATMONA-1. 

Order-No. 7098 S49.95 

MACRO- Assembler 

for ATARI 800, 48K RAM 
Please specify your system: RAM, 
disc or cassette. 
Order-No. 7099 S89.00 

Gunfight - For ATARI 400/800 

16K RAM, needs two joysticks, 

animation and sound. (8K machine 

language). 

Order-No. 7207 S19.95 

EPROM BURNER for ATARI 

400/800. Bare boards only with 

description, schematic + software 

(2716,2732). 

Order-No. 7041 S99.00 

Invoice Writing for very small 
business with ATARI 400/800 
16K RAM. 

Order-No. 7022, cass. S29.85 

Order-No. 7200, disc. £39.99 

Wordprocessor for ATARI 800, 

48K RAM 

Order-No. 7210 629.95 

How to connect your EPSON- 
Printer to the ATARI 400/800. 

Construction article with printed 
circuit board and software. 
(Screenprint and variable charac- 
ters per line). 
Order-No. 7210 S19.95 

OS^OS^OS^OS^OSI 

The First Book of Ohio Scientific 

Introduction to OSI computers. 
Diagrams, hardware and software 
information not previously 
available in one compact source. 
192 pages. 
Order-No. 157 S7.95 

The Second Book of Ohio 
Scientific 

Very valuable information about 
OSI microcomputer systems. 
Introduction to OS-65 D and 
OS-65U networking. Hardware 
and software hints and tips. 
Systems specifications. Business 
applications. 
Order-No. 158 S7.95 



Microcomputer Application 

Notes 

Reprint of Intel's most important 
application notes including 2708, 
8085, 8255, 6251 chips. Very 
necessary for the hardware buff. 
Order-No. 153 S9.95 

Complex Sound Generation 

New revised applications manual 
for the Texas Instruments SN 
76477 Complex Sound Genera- 
tor. 
Order-No. 154 S6.95 

Small Business Programs 

Complete listings for the business 
user. Inventory, Invoice Writing, 
Mailing List and much more. 
Introduction to Business Appli- 
cations. 
Order-No. 156 S14.90 

Microcomputer Hardware Hand- 
book 

Descritions, pinouts and specifi- 
cations of the most popular 
microprocessor and support chips. 
A MUST for the hardware buff. 
Order-No, 29 814.95 

Care and Feeding of the 
Commodore PET 

Eight chapters exploring PET 
hardware. Includes repair and 
interfacing information. Pro- 
gramming tricks and schematics. 
Order-No. 150 S9.95 

Prototype-Expansion Board for 
VIC-20 (S-44-Bus). 
Order-No. 4844 S18.95 

16K RAM/ROM board for S44- 
bus. Any combination of RAM 
and ROM on one board. 
(SY2128or 2716) 
Order-N0.613 S39.95 

Low cost expanison boards for 

your APPLE II. Bare board comes 

with extensive description and 

software. 

Prototyping card 

Order-No. 604 S29.00 

6522 VIA-I/O Exp. 

Order-No. 605 S39.00 

2716 EPROM-Burner 

Order-No. 607 S49.00 

8K EPROM/RAM Card 

Order-No. 609 S29.00 
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ATMONA-1 



ATMON A-1 

ATMONA-1 - The new machine language 
monitor for the ATARI 400 and ATARI 800 
computer. ATMONA-1 has been developed to 
provide you with the firmware support that you 
need to get the most out of your power system. 

ATMONA-1 is available on cassette and provides 

you with the following features: 

Commands: 

D: Disassemble (P) 

M: Memory Dump with or without ASCII 

Dump(P) 
C: Change content of memory location 
F: Fill memory block with a byte 
B: Transfer memory block 
L: Load a memory block from tape 
S: Save a memory block to tape 
6: ■ GOTO, START A PROGRAM 



X = RETURN TO ATMONA1 

SYSTEM RESET = RETURN TO ATMONA1 
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ATMONA has very user-fr 

(P) = with printer option 
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iendly dialogs. 



080E : 
0810: 
0812: 
0814: 
0816: 
0818: 
08 1 A : 
081C: 
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0820: 
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BRK 
ST A 
LDA 
STA 
LDA 
JSR 
DEC 
BNE 
DEC 
BPL 
LDA 
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LDY 
LDA 
BIT 
BMI 
AND 
CMP 
BCC 
LDA 
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Ing. W. Hofacker GmbH, 53 Redrock Lane, 
Pomona, CA 91766 / USA, (714) 623 8314 




0800 
0808 
0810 
0818 
0820 
0828 
0830 

0830 
0838 
0840 
0848 
0850 
0858 
0860 



0085C9A90385CBA9 
2020650CC6CBD0F7 
C6C910EFA90885C9 
AOOOB 1 C524CA30 1 6 
297FC97D9002A9A0 
C 9 2 E( 2 9 4 2 6 5 
0C1 89005 109E2075 



3EDCEK) 
eLFKPw 
FIPo)HEI 
31E*J0V 
) I PB> 
I OBIS e 



OC 
08 
A 5 
90 
JO 
85 
A 2 



18 
E6 
C5 
17 
ID 
C5 
C6 



90 
C5 
C5 
24 
C6 
A 5 
C9 



05 
DO 
C2 
C4 
C9 
C8 
DO 



10 
03 
A 5 
10 
E6 
85 
B3 



9E 
E6 
C6 
21 
CA 
C6 
21 



LXPEF" 
20 75 
DB 
C3 
CA 
C7 
90 
10 



Ll 



C6 
E5 
24 
A 5 
18 
C4 



ATMONA-1 1 contains a super-duper tracer in- 
cluding a relocator, breakpoints, and register 
dump. 

ATMONA-1 1 provides you with the following 
features: 

1 . The Supertracer can stop at a previously 
selected address 

2. The Supertracer can stop at a previously 
selected operand 

3. The Supertracer can stop at a previously 
selected Op-Code 

4. The Supertracer stops at every BREAK- 
command, RTI-command, set-interrupt- 
command and at every Op-Code which 
does not represent a 6502-instruction. 

Pricing information: 

ATMONA-1 Order-No. 7022 $19.95 

ATMONA-2 Order-No. 7049 $49.95 

Ing. W. Hofacker GmbH, Tegernseerstr. 18, 

D-8150 Holzkirchen / West Germany 



ATARI is a trademark of ATARI Inc., Sunnyvale, California 
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